Option Explicit
 
Private Declare Sub CopyMemory Lib "Kernel32" Alias "RtlMoveMemory" ( _
     lpvDest As Any, _
     lpvSource As Any, _
     Byval cbCopy As Long)
 
 
Private Function UdtToString(udtVar As Deine_Udt) As String
     Dim sMem As String
 
     sMem = Space(Len(udtVar))
     CopyMemory Byval sMem, udtVar, Len(udtVar)
 
     UdtToString = sMem
End Function