Perdona no entiendo lo que quieres decir con... richtextbox....
El código que yo aplico y no me ejecuta bien es:
Código:
Dim i as integer
Open "C:\abrir.txt" For Input As #1
Do Until EOF(1)
i = 0
While i <= 80
Input #1, Text1(i)
i = i + 1
Wend
¿Qué hago mal? :(