Guardar y abrir archivos TXT en un Textbox

[pkj]

Voy a ver si te lo explico que es facil

Sub AbrirArchivo(Ruta As String, Texto As TextBox)

Dim fnum As Integer
' tienes que asignar un numero a cada fichero que abres.
' el primer fichero lleva el numero 0, el segundo 1, etc,
' asi que para guardarlo creas esta variable

On Local Error GoTo Ninguno ' si da error es que no se ha podido abrir y saltamos a Ninguno

fnum = FreeFile ' esto es una ayuda al programador.
'freefile devuelve el siguiente numero vacío que puedes usar para abrir un fichero,
'de modo que no tienes que llevar la cuenta de cuantos has abierto,
' ya que al cerrarlo, el sistema lo descuenta.

' abrimos el fichero, donde Ruta es un string
' que debes cargar con la ruta completa y nombre
' del fichero de texto.
Open Ruta For Input As fnum
' como ves, fnum tambien se usa ahí, para asignar el numero al fichero
' esto hace un bucle hasta que se llegue al final del fichero
Do While Not EOF(fnum)

' vas sacando líneas y añadiendolas a tu textbox.
' usas fnum para referirte al fichero abierto.
Line Input #fnum, txt
' y la línea sacada se carga en txt

' pegas la linea en el textbox 'Texto'
Texto.Text = Texto.Text & vbCrLf & txt

' y asi tantas veces como lineas haya
Loop

Close fnum
' al final cierras el fichero y freefile podra usar el numero de nuevo en otro.

' esto lo añado yo
Goto FinSub

' si hay error
Ninguno:
' mostramos el error
msgbox Err.Number & " - " & Err.Description

Err.Clear
' y limpiamos el error

on local error resume next

FinSub:

on local error goto 0
'quitamos el control de errores
' y salimos

End Sub

Espero haber sido de ayuda. La otra sub te la dejo para que la estudies.

Saludos.