Function Pruefung(Textfeld As TextBox) As Boolean
   Pruefung = False
   If Not IsNumeric(Textfeld.Text) Then
      MsgBox Prompt:="Bitte nur Zahlen", Buttons:=vbOKOnly + vbInformation
      Textfeld.SetFocus
      Exit Function
   ElseIf IsNumeric(Textfeld) And Textfeld.Text <= 0 Then
      MsgBox Prompt:="Die Zahl muss größer Null sein", Buttons:=vbOKOnly + _
        vbInformation
      Textfeld.SetFocus
      Exit Function
   Else
      Pruefung = True
   End If
End Function