Private Sub Command1_Click()
Dim AllesOK As Boolean
Dim Eingabe As String
Dim Vorgabe As String
 
AllesOK = False
 
Do While Not AllesOK = True
 
 Eingabe = InputBox("Bitte Name eingeben", "Test", Vorgabe)
 
  If Eingabe = "" Then Exit Do
 
 For N = 1 To Len(Eingabe)
  If IsNumeric(Mid(Eingabe, N, 1)) Then
   MsgBox "Bitte nur Buchstaben eingeben"
   Vorgabe = Eingabe
   AllesOK = False
   Exit For
  End If
  AllesOK = True
 Next
 
Loop
 
End Sub