Private Declare Sub CopyMemory Lib "kernel32.dll" Alias "RtlMoveMemory" ( _ 
	 ByRef Destination As Any, _ 
	 ByRef Source As Any, _ 
	 ByVal Length As Long)
 
Public Function SetTypeToString( hier_die_UDT As Die_UDT) As String
     Dim sGetOut As String
 
     sGetOut = Space( Len(hier_die_UDT) )
     CopyMemory Byval sGetOut, hier_die_UDT, Len(hier_die_UDT)
 
     SetTypeToString = sGetOut
End Function