Option Explicit
 
Private Type subtype
    sublng As Long
    substr As String
End Type
 
Private Type test
  lng As Long
  str As String
  vnt As Variant
  bln As Boolean
  subUDT(1 To 2) As subtype
End Type
 
Private Sub Command1_Click()
Dim myUdt(1 To 2) As test
Dim myNewUdt(1 To 2) As test
Dim intF As Integer
Dim strMsgBox As String
 
    myUdt(1).lng = 1
    myUdt(1).str = "test 1"
    myUdt(1).vnt = "test variant " & 1
    myUdt(1).bln = True
    myUdt(1).subUDT(1).sublng = 11
    myUdt(1).subUDT(1).substr = "subtest 11"
    myUdt(1).subUDT(2).sublng = 1122
    myUdt(1).subUDT(2).substr = "subtest 1122"
 
    myUdt(2).lng = 2
    myUdt(2).str = "test 2"
    myUdt(2).vnt = "test variant " & 2
    myUdt(2).bln = False
    myUdt(2).subUDT(1).sublng = 22
    myUdt(2).subUDT(1).substr = "subtest 22"
    myUdt(2).subUDT(2).sublng = 2222
    myUdt(2).subUDT(2).substr = "subtest 2222"
 
    intF = FreeFile
    Open "c:\temp\test.txt" For Binary As intF
        Put intF, , myUdt
    Close intF
 
    intF = FreeFile
    Open "c:\temp\test.txt" For Binary As intF
        Get intF, , myNewUdt
    Close intF
 
    strMsgBox = "myNewUdt(1).lng : " & CStr(myNewUdt(1).lng) & vbCrLf & _
                "myNewUdt(1).str : " & myNewUdt(1).str & vbCrLf & _
                "myNewUdt(1).vnt : " & myNewUdt(1).vnt & vbCrLf & _
                "myNewUdt(1).bln : " & myNewUdt(1).bln & vbCrLf & _
                "mynewUdt(1).subUDT(1).sublng : " & CStr(myNewUdt(1).subUDT( _
                1).sublng) & vbCrLf & _
                "mynewUdt(1).subUDT(1).substr : " & myNewUdt(1).subUDT( _
                1).substr & vbCrLf & _
                "mynewUdt(1).subUDT(2).sublng : " & CStr(myNewUdt(1).subUDT( _
                2).sublng) & vbCrLf & _
                "mynewUdt(1).subUDT(2).substr : " & myNewUdt(1).subUDT( _
                2).substr & vbCrLf & _
                "myNewUdt(2).lng : " & CStr(myNewUdt(2).lng) & vbCrLf & _
                "myNewUdt(2).str : " & myNewUdt(2).str & vbCrLf & _
                "myNewUdt(2).vnt : " & myNewUdt(2).vnt & vbCrLf & _
                "myNewUdt(2).bln : " & myNewUdt(2).bln & vbCrLf & _
                "mynewUdt(2).subUDT(1).sublng : " & CStr(myNewUdt(2).subUDT( _
                1).sublng) & vbCrLf & _
                "mynewUdt(2).subUDT(1).substr : " & myNewUdt(2).subUDT( _
                1).substr & vbCrLf & _
                "mynewUdt(2).subUDT(2).sublng : " & CStr(myNewUdt(2).subUDT( _
                2).sublng) & vbCrLf & _
                "mynewUdt(2).subUDT(2).substr : " & myNewUdt(2).subUDT( _
                2).substr & vbCrLf
    MsgBox strMsgBox
End Sub