Sub faililugeja()
  Dim rida As String
  Open "c:\nimed.txt" For Input As #1
  Line Input #1, rida
  MsgBox (rida)
  Close #1
End Sub