Pessoal queria poder ler uma determinada linha de um arquivo txt e armazenar o texto que esta nessa linha e armazenar em uma string...alguem pode me ajudar?...grato..

 

miro

  Screen.MousePointer = vbHourglass
  Dim ABC As String

  Open "U:Meus DocumentosTabelasMenusFin.txt" For Input As #1
  Do While Not EOF(1) 'loop lê linha por linha do arquivo 
    Line Input #1, ABC 'abc guarda contéudo da linha lida 
  Loop
  Close #1
  Screen.MousePointer = vbNormal
  MsgBox "Ok"

caso vc queira tratar alguma coisa nas linhas deste arquivo vc pode fazer assim:
Dim Linha as String
Dim coluna1 as String
Dim coluna2 as String
Open "C:     exto.txt" for Input as #F
Do While Not EOF(F)
Line Input #F,Linha
Coluna1=Mid(linha,2,6) ' 2 é apartir de que caracteres e 6 quantos caracter

coluna2=Mid(Linha,10,6)

if coluna1 = coluna 2  then

faça a alteração tal

end if

loop

close #F

msgbox "OK"

 

Um abraço