VBA Wenn Logik mit Asc Funktion

Question

Ich habe ein Benutzerformular, das eine TextBox enthält. Ich habe eine If Funktion erstellt, um zu überprüfen, ob der Benutzer Buchstaben eingegeben hat oder nicht. Ich bekomme einen Laufzeitfehler 13 auf meinem Code. Bitte hilf mir, wenn ich die if-Logik richtig mache.

Private Sub cmd_Submit_Click() 
    'it will not accept any ASCII variables from 0 to 65 
    If Name_Box.Text < Asc(65) Then 
     MsgBox "Enter A to Z" 
     'Shall not contain any ASCII characters past 90 
    ElseIf Name_Box.Text > Asc(90) Then 
     MsgBox "Enter A to Z" 
    Else 

    End If 
End Sub 

Answer 1

diese Funktion versuchen:

Private Sub cmd_Submit_Click() 
    For i = 1 To Len(Name_Box.Text) 
     If Asc(Mid(Name_Box.Text, i, 1)) < 65 Or Asc(Mid(Name_Box.Text, i, 1)) > 90 Then 
      MsgBox "Enter A to Z" 
      Exit For 
     End If 
    Next i 
End Sub