Use event MS Access

IWPFieldContents is passed as untyped "object", so please create a variable of the type IWPFieldContents and assign it:

Private Sub WPDLLInt1_OnFieldGetText(

         ByVal Editor As Long,

         ByVal FieldName As String,

         ByVal Contents As Object)

    Dim theContents As WPTDynInt.IWPFieldContents

 Set theContents = Contents

 If FieldName = "name" Then

         theContents.stringvalue = "Julian Ziersch"

End If