Option Explicit
Sub fakultaeten()
' Programm bildet die Fakultaet einer einzugebenden Zahl
' Dateiname: fakultaeten
Dim fakultaet As Integer
Dim bisZu As Integer
Dim i As Integer

' Gib Programmbeschreibung aus
MsgBox ("Berechnung der Fakultät der Zahl, die Sie eingeben!")

'Lies die Zahl, deren Fakultät berechnet werden soll, ei
bisZu = InputBox("Geben Sie nun die Zahl ein, deren Fakultät " & _
"berechnet werden soll!")

' initialisiere fakultaet mit 1
fakultaet = 1

' Berechnung der fakultaet
For i = 1 To bisZu
    fakultaet = fakultaet * i
Next i

' Gib Ergebnis in einem Fenster aus
MsgBox (" " & bisZu & "! = " & fakultaet)

End Sub