Private Declare Sub CopyMem Lib "kernel32" Alias _
    "RtlMoveMemory"
    (lpDest As Any, _
     lpSource As Any, _
     cbCopy As Long)
 
 
Private Function UDTCopy (Byref QuellUDT As UdtTyp) As UdtTyp
     Dim sUdt As String 
     sUdt = Space(Len(QuellUDT))
     CopyMem (Byval sUdt, QuellUDT, Len(QuellUDT)
     UDTCopy = sUdt
End Function
 
Zum Einen.
 
Oder auch:
 
Dim newUDT As QuellUDT
newUDT = DeineUDT
 
wäre noch kürzer.