Private Declare Sub CopyMemory Lib "kernel32" Alias _
  "RtlMoveMemory" (pDst As Any, _
   pSrc As Any, ByVal ByteLen As Long)
 
Private Type MyUDT
   Text1 As String * 10
   Text2 As String * 10
   Long  As Long
End Type
 
Private mUDT As MyUDT
 
Public Property Get UDTTest() As Long
   UDTTest = mUDT.Long
End Property
 
Public Property Let UDTTest(ByVal nPtr As Long)
   CopyMemory ByVal (VarPtr(mUDT)), ByVal nPtr, Len(mUDT) * 2
   MsgBox mUDT.Text1 & " " & mUDT.Text2 & " " & Str(mUDT.Long)
End Property

Private myClass As New UDTClass
 
Private Type MyUDT
   Text1 As String * 10
   Text2 As String * 10
   Long  As Long
End Type
 
Private Sub Form_Load()
    Dim testUDT As MyUDT
    With testUDT
       .Text1 = "Lordchen"
       .Text2 = "was here"
       .Long = 1000
    End With
    myClass.UDTTest = VarPtr(testUDT)
End Sub