' Determina quando è lunga una riga.. nel file di esempio sarà 17 caratteri + 2 speciali (cr e lf)
        '17 caratteri inseriti
        ' 1 carattere cr
        ' 1 carattere lf

        ' la stringa che conterrà il valore della riga
        Dim myRow As String = New String("", 17)

        ' apri il file con random e passi come paramtro lunghezza record 19 ( 17 + 2 speciali )
        FileOpen(1, "C:\grid.txt", OpenMode.Random, OpenAccess.Default, OpenShare.Shared, 19)

        ' adesso utilizzi fileget x leggere la riga che vuoi 
        ' 1 = 1° record 
        ' 20 = 2° record ( 1+17+2 ) e così via

        FileGet(1, myRow, 1, True)
        FileClose(1)