Sub faililugeja3()
  Open "c:\proov.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, rida
    msgbox rida
  Loop
  Close #1
End Sub