---

Function wandle_in_int_um(ByVal eingabe As String) As Integer
    If Not IsNumeric(eingabe) Then
        Err.Raise 5000, "wandle_in_int_um", "Bitte nur Zahlen eingeben"
    End If
    wandle_in_int_um = CInt(eingabe)
End Function

---