---

Function wandle_in_double_um(ByVal eingabe As String) As Double
    If Not IsNumeric(eingabe) Then
        Err.Raise 5000, "wandle_in_double_um", "Bitte nur Zahlen eingeben"
    End If
    wandle_in_double_um = CDbl(eingabe)
End Function

---