---

sub hauptprogramm_fakultaet()
    Dim eingabe As Integer
     eingabe=InputBox("n eingeben")
     MsgBox (eingabe & " != " & fakultaetBerechnen (eingabe))
end sub

---