Type Record ' Define user-defined type.
ID As Integer
Name As String * 20
End Type
Dim MyRecord As Record
Dim MyFile as Long ' Declare variables.
MyFile = Freefile 'get available file handle
Open "TESTFILE" For Random As MyFile Len = Len(MyRecord)
' Close before reopening in another mode.
Close MyFile