Private Sub Form_Load()
MsgBox Test("154")
 
MsgBox Test("sdsd")
End Sub
 
Private Function Test(Teststring As String)
If IsNumeric(Teststring) Then
   Test = True '<-- Rückgabe von Wahr, da ja der String nur mit Zahlen gefühlt 
   ' ist
Else
   Test = False '<-- Rückgabe von Falsch, da der String Buchstaben enthält
End If
End Function

[u]Mein System online

MfG ICE-MAN