[Resolvido]ler registro por registro e comparar com a ultima linha

tenho esse arquivo ai embaixo em anexo e sintegra

contem varios registro exemplo 10,11,50,53,54,75 e 90

entao eu quero ler esse arquivo e comparar se o total de cada registros dos 50,53,54 e 75 com a ultima linha que e 90

os registro estao localizado no comeco de cada linha

Você precisa postar o layout do arquivo...

mas quero ler e o arquivo

Open "Arquivo.txt" For Input As #1
While Not EOF(1)
 Line Input #1, SLine
 sTipo = Mid(SLine, 1, 3) ' --Pegar o tipo de registro para tabular (0,1,2,3)
Select Case sTipo
  Case "10"
  Case "11"
  Case "50"
  Case "53"
  Case "54"
  Case "75"
End select
Wend
Close #1

como que faco pra ele ler cada arquivo corresponde a case e contar quanto arquivo cada case tem

todo arquivo txt sem delimitação dos campos, tipo ";" ou "," ou espaço
tem que mensionar as suas espeficicações para a gente saber
qual posições se encontra qual campo
entao poste seu banco para nós(zipado) ou poste suas especificações de campo

mas o quero ler o arquivo que esta em anexo cada linha que existe no arquivo em anexo aqui ta o exemplo

50048632450001012231609360029 20150424MG551 0345271403T000000013793700000000000000000000000000000000000000000000000010490000N
aqui comeca 50 que sao os dois primeiros numero da linha
------------------------
5372026024000120461027792111 20150407SP551 0907092403T000000027027000000000340560000000000000N
aqui comeca 53 que sao os dois primeiros numero da linha
------------------------
5400492396000999551 04560414030600010413 000000100000000000207900000000000000000000000000000000000000000000000000000
aqui comeca 54 que sao os dois primeiros numero da linha
------------------------

quero contar quantas linha ha ne cada arquivo correspondente, se vc abrir o arquivo vc vai achar no comeco de cada linha arquivo relacionado a cada case nesse codigo abaixo

Open "Arquivo.txt" For Input As #1
While Not EOF(1)
Line Input #1, SLine
sTipo = Mid(SLine, 1, 3) ' --Pegar o tipo de registro para tabular (0,1,2,3)
Select Case sTipo
Case "10"
Case "11"
Case "50"
Case "53"
Case "54"
Case "75"
End select
Wend
Close #1

resolvido