Написать програму по теме: нахождение фтоктириального числа

Есть факториал,то

VB.
Dim n as Integer
n=InputBox("Введите n: (n!)")
Dim i as Integer
Dim fak As Long

      fak = 1
      For i = 1 To n
                fak = fak * i ' Вычисляем факториал
      Next i
   ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
 MsgBox(fak)