option explicit
 
Private x as tType
private cs as class1
 
Public Sub Form_Load()
 
       x.Name="xyz"
       x.Vorname="abc"
 
       Set cs = new class
       cs.Add VarPtr(t) 
 
End Sub

option explicit
 
Public Declare Sub Peek Lib "kernel32" Alias "RtlMoveMemory" ( _
  nDest As Any, _
  ByVal lpSrc As Long, _
  ByVal nLen As Long _
)
 
Public Type Type
       Name as string
       Vorname as string  
End Type

option explicit
 
Public Function Add(ByVal t as long)
dim x as tType
 
        Peek x,t,lenB(t)
        Msgbox StrConv(x.Name,vbFromUnicode) & " "&  StrConv( _
          x.Vorname,vbFromUnicode)
 
End Function