Guardar y abrir archivos TXT en un Textbox

[kamita]

El tema es que lo estoy probando y me saltan errores por todas partes!
He limpiado más o menos el código para ir probando y mira....

Sub AbrirArchivo(ByVal Ruta As String, ByVal 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

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.
OpenNo se declaró open c:\precios\diesel.txt Error de sintaxisFor 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

Loop

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

End Sub

y asi me salen veintemil errores más.....