Private Sub faililugeja3_Click()
  Dim failinimi, nr, rida
  failinimi = "nimed.txt"
  failinimi = InputBox("Palun faili nimi", "Faili avamine", _
    ActiveWorkbook.Path & "\" & failinimi)
  On Error GoTo veahaldus
avamine:
  Open failinimi For Input As #1
  Line Input #1, rida
  MsgBox ("Esimesel real on " & rida)
  Close #1
  Exit Sub
  
veahaldus:
Do While Not failinimi = ""
 If Err.Number = 53 Then 'veale "faili ei leitud" vastav kood
  failinimi = InputBox("Kontrollige failinime", "faili ei leitud",
failinimi)
  If Not (failinimi = "" Or FileSystem.Dir(failinimi) = "") Then
    GoTo avamine
  End If
 Else  'muu veanumbri korral
   MsgBox "Viga: " & Err.Description
   Exit Sub
 End If
Loop
End Sub