F = 1

n = 1

While N <= 12

F = F * n

n = n + 1

WEnd

MsgBox "12! = " & F

Ответ будет 479001600