Private Sub faililugeja4_Click()
  Dim failinimi, rida, reanr As Integer, eralduskoht(2)
  Const eraldaja = ","
  reanr = 1
  failinimi = ActiveWorkbook.Path & "\nimed2.txt"
  Open failinimi For Input As #1
  ActiveSheet.Cells.Clear
  Range("a1:c1") = Array("Nimi", "Sünniaasta", "Telefon")
  Do While Not EOF(1)
    Line Input #1, rida
    eralduskoht(1) = InStr(1, rida, eraldaja)
    eralduskoht(2) = InStr(eralduskoht(1) + 1, rida, eraldaja)
    reanr = reanr + 1
    Cells(reanr, 1) = Mid(rida, 1, eralduskoht(1) - 1)
    Cells(reanr, 2) = Mid(rida, eralduskoht(1) + 1, _
       eralduskoht(2) - eralduskoht(1) - 1)
    Cells(reanr, 3) = Mid(rida, eralduskoht(2) + 1)
  Loop
  Close #1
End Sub