Grazie, il comando "line input" e' stato risolutivo:

Open nome_file For Input As 3
Open "c:\vb4\titoli.asc" For Random Access Write As 2 Len = Len(record)


Do While Not EOF(3)
Line Input #3, stringa_testo
If Len(stringa_testo) < 400 Then
stringa_testo = stringa_testo & String((400 - Len(stringa_testo)) - 1, "*") & Chr(10)
End If
Put #2, , stringa_testo
Loop
Close #2
Close #3