关于VB 求五位数的各个数字之和的问题

要求创建一个VB程序：对输入的五位正整数分离出它的个位，十位，百位，千位，万位，并求各个数字的和

我的代码：
Private Sub Command1_Click()
Dim n As Integer, m As Integer, x As Integer, y As Integer, z As Integer, w As Integer
n = InputBox("请输入一个五位数:", "数据输入", 12345)
m = Left(n, 1)
x = Mid(n, 2, 1)
y = Mid(n, 3, 1)
z = Mid(n, 4, 1)
w = Right(n, 1)
Text1.Text = m + x + y + z + w

End Sub

Private Sub Command2_Click()
End
End Sub

可是输入“66666”或者“55555”等数字就算不出来了。麻烦高手指点一下了。谢谢：）

java问题：判断一个五位数n的各位数字的奇偶性，并求它们的和。 求999....9×999....9(前后都是2000个9)积的各个数字之和. 一个自然数,各个数位上的数字之和是16,。。。。。。。。 求解:个位数字是5的五位数中,能被9整除的所有数之和是_____ 在五位数中，各位数字之和等于43但能被11整除的数有几个？ 关于vb编写随机数字的问题 在vb中关于数字的问题 怎样用VB编写3527的各位数字之和 一个五位数，末位数字为1，把1调到最左边所得的新的五位数的2倍比原数小1，求原五位数 C++怎样求一个数的各个位之和