Wie kann ich verhindern das Buchstaben in eine Textbox eingegeben werden können? Also das man nur Zahlen reinschreiben kann und Buchstaben und Satzzeichen nicht.

Bei jeder Änderung des Textes nachschauen, ob es sich um einen Buchstaben handelt oder nicht. Wenn nicht, dann das letzte Zeichen des Textes wieder löschen.

Die saubere Lösung sähe so aus, Text löschen ist Unfug mit Soße. Diese Funktion in die entsprechende Text-Sub einfügen - fertig.

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)



  Select Case KeyCode

   'Zahlen 0 bis 9

    Case 48 to 57

     'Zahlen dürfen erscheinen, also raus

      Exit Sub

   'Komma (Dezimaltrenner), falls gewünscht

   'Optional umbiegen auf Punkt

    Case 44

     'KeyCode = 46 

      Exit Sub  

   'Punkt (Dezimaltrenner), falls gewünscht

    Case 44

      Exit Sub  

    Case Else

     'Eingabe auf nichts setzen

      KeyCode = 0

  End Select



End Sub

[edit]
Falls negative Zahlen gewünscht werden, noch das Minuszeichen erlauben (45). Selber Kontext wie Punkt und Komma.