Visual Basic - leer un txt y grabarlo como random

Private Sub Command3_Click()
fnom = actual
nf = FreeFile

Open fnom For Random As #nf Len = Len(v)

For i = 1 To k

Put #nf, , formules(i)
Next
Close #nf
End Sub

estoy intentando leer un txt pero me da error en la linea

Open fnom For Random As #nf Len = Len(v)

Dice llamada o procedimento no valido
ke hago mal?¿

stá bien escrito?
pones FNOM y es FROM

Estas introduciendo una palabra reservada: FNOM, ponele otro nombre, por ejemplo "MisDatos.Dat"