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

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)