задачи в программе VBA

[чипа]

Дано натуральное число А.Составить программу определяющая такое наибольшее N,что N!<A (A>1). В программе VBA
Sub нат_число
Dim k,i,n,a As Integer
a=InputBox("введите А")
n=0
n=n+1
Fact=1
For i=1 to n+1
Fact=Fact*n
If Fact<a Then
MsgBox(n)
End If
Next
End Sub

Что здесь не верно, при вводе например числа 12,должно выскочить 4, а у меня 0.