Obtener datos de un archivo de texto

[llovio]

Eureka. Ya funciona bien. No sabes como te lo agradezco PKJ. Aqui dejo el codigo que funciona. He añadido un bucle para leer todos los datos del archivo de forma, creo que mas rapida, que a traves del textbox.

De nuevo mil gracias PKJ


Function LeerRegistroTxt(ByVal NombreArchivo As String, ByVal numLinea As Long, Optional ByVal numColumna As Long) As String
Dim NumFichero As Integer
Dim Linea As String
On Error GoTo ErrorLectura
NumFichero = FreeFile
Open NombreArchivo For Input As #NumFichero
Do Until EOF(NumFichero)
If numLinea = 0 Then Exit Do
Line Input #NumFichero, Linea
numLinea = numLinea - 1
Loop
Close #NumFichero

If numColumna > 0 Then
Dim Matriz() As String
Matriz = Split(Linea, vbTab)
Linea = Matriz(numColumna - 1)
End If
LeerRegistroTxt = Linea
Exit Function

ErrorLectura:
MsgBox Err.Description
Err.Clear

End Function

dim resultado(1000,1000)

Private Sub Command1_Click()
For i = 1 To 3
For j = 1 To 3
resultado(i,j) = LeerRegistroTxt(Form1.Text1, i, j)
Debug.Print resultado
Next
Next
End Sub