Recherche du nombre de 0

Bonjour

à mes heures perdues j'ai concocté le petit programme suivant qui me permet de d'obtenir la factorielle d'un nombre et calculer

le nbr de "0" qui se trouvent à la fin de ce dernier , voici le code :

Sub factorielle()
Dim tablo() As Variant
Dim x, c As Integer
Dim c as string
c = InputBox("entrez un nombre:")
ReDim tablo(0 To c - 1)
For i = 0 To UBound(tablo)
 tablo(i) = i + 1
Next
x = 1
For j = 0 To UBound(tablo)
x = x * tablo(j)
Next
MsgBox x
For k = 1 To Len(x)
If x Mod (10 ^ k) = 0 Then 'ici j'ai un dépassement de capacité 
N = N + 1
End If
Next
MsgBox N
End Sub

il se trouve que j'ai un dépassement de capacité lorsque je boucle sur la valeur de k , ( k me permettant de dire que si x est divisible par 10^k alors , alors la valeur "témoin " N augmente de 1 , me donnant par la même , le nbr de "0" se trouvant à la fin du nombre

Comment puis remedier à ce depassement de capacité ?

Merci pour vos réponses