Option Explicit
Private Sub cmdfak_Click()
Dim fak As Double
Dim fakneu  As Double
Dim erg As Double
 
fak = txteingabe.Text
fakneu = fak - 1
 
If fak < 0 Or fak > 170 Then '0 und Pufferüberlauf abfangen
    erg = MsgBox("Es dürfen nur ganzzahlige Werte zwischen" & vbCrLf & "0 und" & _
      "170 eingegeben werden!", vbOKOnly + vbExclamation, "Warnung!")
    Exit Sub
End If
 
If fak = 0 Then 'Fakultät von Null ausgeben
    txtausgabe.Text = 1
    Exit Sub
Else
  Do
    erg = fak * (fakneu)
    fak = erg
    fakneu = fakneu - 1
  Loop Until fakneu = 1
  txtausgabe.Text = erg
End If
 
End Sub
 
Private Sub txteingabe_Change()
txtausgabe.Text = ""
End Sub