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

Есть факториал,то 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)