两个数的乘积

Dim n1() As Byte, n1len As Long
Dim n2() As Byte, n2len As Long
Dim yushu As Byte
Dim shang As Byte

Dim tempResule As Byte

n1len = Len(Me.Text1.Text)
n2len = Len(Me.Text2.Text)
ReDim n1(n1len) ' 1
ReDim n2(n2len) '长度始终为1
For i = LBound(n1) To UBound(n1)
   n1(i) = Mid(Me.Text1.Text, i, 1)
Next
For i = LBound(n2) To UBound(n2)
   n2(i) = Mid(Me.Text2.Text, i, 1)
Next
'n1=int(val(me.text1.text))
'n2=int(val(me.text2.text))
'tempResult = n1 * n2

tempResult = n1(1) * n2(1) + shang

yushu1 = tempResult Mod 10
shang = tempResult \ 10
tempResult = n1(1) * n2(1) + shang

yushu2 = tempResult Mod 10
shang = tempResult \ 10

Print shang & yushu2 & yushu1

End Sub

程序有错误但是我找不出来。。。。。。