Welcome to PokéCommunity! Register now and join one of the best fan communities on the 'net to talk Pokémon and more! We are not affiliated with The Pokémon Company or Nintendo.
Try this code:
Public Function ReadStuff(ByVal offset As Long, ByVal count As Long) As String
Dim sFileName As String
Dim bReadData() As Byte
Dim iFreeFile As Integer
iFreeFile = FreeFile()
sFileName = "myfile.file"
Open sFileName For Binary As #iFreeFile
Seek...
