Public Function Zahl(Eingabe As String) As Boolean
  Dim i As Integer
  Zahl = True
 
  For i = 1 To Len(Zahl)
      If Mid(Eingabe, i, 1) <> 0 And Mid(Eingabe, i, 1) <> 1 And _
         Mid(Eingabe, i, 1) <> 2 And Mid(Eingabe, i, 1) <> 3 And _
         Mid(Eingabe, i, 1) <> 4 And Mid(Eingabe, i, 1) <> 5 And _
         Mid(Eingabe, i, 1) <> 6 And Mid(Eingabe, i, 1) <> 7 And _
         Mid(Eingabe, i, 1) <> 8 And Mid(Eingabe, i, 1) <> 9 Then Zahl = False
  Next i
End Function