Coger Ciertos Caracteres De Un Archivo Txt

[jjon]

Hola a todos,

tengo un archivo de texto q lo cargo en visual mediante este programa, de tal forma q me queda todo el texto guardado en la variable `total`.

Private Sub Form_Load()
Dim texto As Integer
Open "C:\COMBI001.TXT" For Input As #1
Dim Linea As String, Total As String
Do Until EOF(1)
Line Input #1, Linea
Total = Total + Linea + vbCrLf
Loop
Close #1
texto = InStr(0, Total, "19")

End Sub


El caso es q el archivo txt q he cargado en la variable `total´ es el ticket de una maquina de pesaje el cual consta de diferentes lineas y solamente deseo coger ciertos caracteres de cada linea concretamente de las lineas pares desearia coger 205 y 43.5 o lo que se encontrara en esas posiciones puesto q pueden ser otros valores, para posteriormente llevarlo a una base de datos creada en mySQL. El ticket es el siguiente:

L2CHI PQT M
2 205 31.5 43.5
L2CHI PQT M
3 205 80.0 <====TICKET
L2CHI PQT M
4 205 80.5
L2CHI PQT M
5 205 81.0
L2CHI PQT M
6 205 32.5 11.5
L2CHI PQT M
7 205 32.5 34.0
L2CHI PQT M
8 205 32.5 48.5
9 5 31.5 5.5
9 TOT kg 427.0


Gracias de antemano