Найти произведение цифр целого положительного числа, введенного с клавиатуры

Dim i As Integer
Dim x As Integer
Dim Summ As Integer

i = InputBox("Введите целочисленное положительное число")
Summ = 1       
For x = 0 To Len(CStr(i)) - 1
            Summ *= CInt(Mid(CStr(i), x + 1, 1)) 
 '  c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535
Next

MsgBox(Summ)