Bom dia

Alguém poderia informar como faço para importar sómente a 1ª e a 2ª linha de um arquivo txt pelo VB6?

agradeço a colaboração

luiz

 

 

colocar um contador

 

  Dim ABC As String

  Dim intContador as integer

intContador  = 1
  Open "C:Teste.txt" For Input As #1
  Do While Not EOF(1) And intContador  < 3
    Line Input #1, ABC
    intContador  = intContador  + 1 

  Loop
  Close #1

valeu!