kein Abbruch bei Abbrechen

Sub MA_einrichten()

eingabe = Application.InputBox("Bitte geben Sie Ihren Namen ein:", "Mitarbeiter einrichten")
If eingabe = False Then
Exit Sub
End If
Do While eingabe = ""
eingabe = InputBox("Bitte geben Sie einen Namen ein!", "Eingabefehler")
Loop
[B3] = eingabe

End Sub

Danke!