Se non sai la lunghezza del record puoi provare:

codice:
Open "c:\file.txt" For Binary Access Read Write Shared As #1
        
        Do Until EOF(1)
            Line Input #1, a
        Loop
        'Riga contiene la stringa da aggiungere
        Put #1, , Riga
        Close #1