prima di tutto devi aprire un file di testo in questo modo:

codice:
Dim fnum As Long
fnum = Freefile
open nomefile for Binary as #fnum
Fatto questo salvi in una stringa le sequenza di lettere casuali con la funzione chr() come ti ha fatto vedere Artemio.

Poi interisci il tutto nel file e lo chiudi in questo modo:

codice:
Put #fnum, , tuastringa

Close #fnum
Dovrebbe essere tutto.
Ciao alla prossima