Private Type CharRecord ' Define user-defined type. Char As String * 1 End Type Dim MyRecord As CharRecord, _ Position As Integer, _ MySize As Integer MySize = FileLen("C:\TEST.DAT") ' Returns file length (bytes). Open "C:\TEST.DAT" For Random As #1 Len = Len(MyRecord) ' Open it for random access with 1 character records Position = 3 ' Define record number. Get #1, Position, MyRecord ' Read third character. Debug.Print MyRecord.Char ' Send it to immediate window Close #1 'Do not forget thisAdvice whether this is what you need!
Make solutions, not programs!