Zitat:

Zusätzlich mußt Du noch beachten, dass dann Strings im UDT feste Längen haben müssen. Sonst kannst Du das UDT nicht mehr richtig einlesen.

Option Explicit
 
Private Type test
    test    As String
    lng     As Long
End Type
 
Private Sub Form_Load()
    Dim udt As test
 
    udt.test = Space(5000)
    udt.lng = 10
 
    Open "C:\udt" For Binary As #1
        Put #1, 1, udt
        Get #1, 1, udt
    Close #1
 
    Debug.Print Len(udt.test)
    Debug.Print udt.lng
End Sub

http://rm_code.dl.am