following exemple (from on line help) doen't work as expected:
What happens is Get function always position at file end, whatever seek does 
before. It is only when position is put in the get call that get works.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As String * 32'REM Must be une variant 'WRONG variant generates error
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Seek #iNumber,1 REM Position au début
Put #iNumber,, "Ceci est la première ligne de texte." REM Remplir la ligne 
avec du texte
Put #iNumber,, "Ceci est la seconde ligne de texte."
Put #iNumber,, "Ceci est la troisième ligne de texte."
Seek #iNumber,1
Get #iNumber,,sText
Get #iNumber,,sText
Get #iNumber,,sText
Print sText
Close #iNumber
end sub