---

Sub pruefeLaufzeitMitFehlerbehandlung(ByVal Laufzeit As Double)
    Const laufzeitMin As Double = 3
    Const laufzeitMax As Double = 35
    Const laufzeitPlausi As Double = 25

    If Laufzeit < laufzeitMin Or Laufzeit > laufzeitMax Then
        Err.Raise 5001, "pruefeLaufzeit", "Laufzeit muss zwischen " _
        & laufzeitMin & " und " & laufzeitMax & "  Perioden liegen"
    End If

    If Laufzeit > laufzeitPlausi Then
        MsgBox "Die Laufzeit (" & Laufzeit & " Jahre) ist sehr lang. Sicher?"
    End If
End Sub

---