Fehler bei falsch Eingabe

Sub Mappezu()
Dim Kundennr As Integer
For i = 1 To Sheets.Count  'alle Tabellenblätter sperren
Sheets(i).Protect
Next i
Kundennr = InputBox("Kundennr") ' Kundennr, eingeben
With Worksheets(1).Range("a1:a500")
Set c = .Find(Kundennr, LookIn:=xlValues) ' Kundennr suchen
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c = Kundennr Then           ' Kundennr gefunden dann zelle B x anzeigen
MsgBox "Kundennr gefunden. Ihr Zugangscode =  " & c.Offset(0, 1)
For i = 1 To 3
Sheets(i).Unprotect  'Tabellenblatt 1 bis 3 freigeben
Next i
End If
Exit Sub
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox "keine Übereinstimmung!!" 'Kundennr falsch, Macro beenden. Blätter sind gesperrt.
End Sub