Private Sub faililugeja2_Click()
  Dim rida As String, failinimi, reanr
  'kasutajalt küsitakse failinimi dialoogiakna kaudu
  failinimi = Application.GetOpenFilename
  Open failinimi For Input As #1
  reanr = 1
  ActiveSheet.Cells.Clear
  Do While Not EOF(1)
    Line Input #1, rida
    Cells(reanr, 1) = rida
    reanr = reanr + 1
  Loop
  Close #1
End Sub