Private Function FrageIstText(Teststring As String)
If IsNumeric(Teststring) Then
   FrageIstText = Teststring & "*"       '<<===== hier passiert etwas sinnloses
Else
   FrageIstText = False '<-- Rückgabe von Falsch, da der String Buchstaben 
   ' enthält
End If
End Function
 
Private Sub Form_Load()
MsgBox FrageIstText("123")
MsgBox FrageIstText("test")
End Sub