Private Type mys
   m1 As String
   m2 As String
End Type
 
Private Type mys2
   m1 As String
   m2 As String
   m3 As String
End Type
 
Private Sub test()
   Dim t As mys
   Dim t2 As mys2
   Dim f As Integer
 
   t.m1 = "Test1"
   t.m2 = "Test2"
   t2.m1 = "Test3"
   t2.m2 = "Test4"
   t2.m3 = "Test5"
   f = FreeFile
 
   Open "D:\MyDat.dat" For Random As #f Len = 1024
      Get #f, 1, t 'Auslesen. Einlesen mit Put #f, 1, t
      Get #f, 2, t2
   Close #f
 
    MsgBox t2.m3
End Sub