---

      
Sub pruefeLaufzeit(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
        ' Fehler erzeugen (können wir noch nicht)
    End If
    
    If Laufzeit > laufzeitPlausi Then
        MsgBox "Die Laufzeit (" & Laufzeit & " Jahre) ist sehr lang. Sicher?"
    End If
End Sub 

---