Obtener datos de un archivo de texto

[pkj]

En ese caso deberías modificar el código para leer todos los registros de una vez, ya que la función está diseñada para leer registros sueltos y aumenta mucho el trabajo si lo que quieres es cargar todo.
Puedes hacerlo todo en el propio command1:

Código vb:

Dim NumFichero As Integer
Dim Linea As String
Dim Matriz() As String
On Error GoTo ErrorLectura
NumFichero = FreeFile
Open Text1.Text For Input As #NumFichero
Do Until EOF(NumFichero)
  Line Input #NumFichero, Linea
  Matriz=Split(Linea,vbTab)
  i=i+1
  For j = 0 To 2
     resultado(i,j+1)=Matriz(j)
  Next j
Loop
Close #NumFichero
 
Exit Sub
 
ErrorLectura:
MsgBox Err.Description
Err.Clear
 

Algo así...

En este caso es innecesario dado que solo hay 3 líneas y 3 datos, pero si automatizas el tema para manipular muchos ficheros o usas la función con ficheros con muchos datos, el proceso se comenzará a hacer pesado.