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

If Pruefung(txtKapital) = False Then
      Exit Sub
   Else
      Kapital = txtKapital.Text
   End If