输入一个任意数字，要输出它的各个数字之积 如何编写程序？

Private Sub Command1_Click()
Dim i As Long
Dim StrLen As Integer
Dim idx As Integer
Dim sStr As String
i = InputBox("输入一个数字")
sStr = CStr(i)
StrLen = Len(sStr)
i = 1
For idx = 1 To StrLen
i = i * Val(Mid(sStr, idx, 1))
Next
Debug.Print "各个数字的乘积是：" & i

End Sub

非常感谢啊

Private Sub Command1_Click()
Dim num As Long
Dim sum As Long
Dim i As Integer
num = CLng(Text1.Text)
sum = 1
Do While num <> 0
sum = sum * (num Mod 10)
num = num / 10
Loop
Text2.Text = sum
End Sub

但是好象不太对，没有结果出来

对的 谢谢拉

客气了