If IsNumeric(Text1.Text) Then    ' Hier wird geprüft, ob der Inhalt von Textbox 
' Text1 nummerisch ist, wenn ja dann liefert die Funktion TRUE
   MsgBox "Eingabe OK"
Else
   MsgBox "Nummerische Dateneingabe erforderlich!!"
End If