an HAJO

ist mir jetzt erst aufgefallen. Ich muss 2 Mal auf abbrechen drücken, damit er das Makro verlässt. Was passt da nicht...?

Sub MA_einrichten()
Dim Eingabe As String
Dim ini As Integer
Do
Eingabe = Application.InputBox("Bitte geben Sie Ihren Namen ein:", "Mitarbeiter einrichten")
If Eingabe = False Then
If ini <> 0 Then Exit Sub
ini = ini + 1
Else
Exit Do
End If
Loop
Do While Eingabe = ""
Eingabe = InputBox("Bitte geben Sie einen Namen ein!", "Eingabefehler")
Loop
[B3] = Eingabe
End Sub