Coger Ciertos Caracteres De Un Archivo Txt

[David]

Según lo que entendí de tu pregunta puedes hacerlo así:

Código:

 
Private Sub Form_Load()
Open "C:\COMBI001.TXT" For Input As #1
Dim Linea As String, Dim Extraer() As String
Do Until EOF(1)
      ' Saltear una línea 
      Line Input #1, Linea
      Line Input #1, Linea
      'Separar los datos de la Línea
      Extraer = Split(Linea, " ")
      'Mostrar el segundo y el último dato
      MsgBox Extraer(1) & " " & Extraer(UBound(Extraer))
Loop
Close #1
End Sub

En este caso mostramos en un MsgBox el segundo y el último dato de la línea, tú puedes guardarlo en variables...