这个vb提示最长那句类型不匹配,不知道错在哪里?

Private Sub Command1_Click()
Dim cha As String
Dim pro(2) As Integer
Dim a, m As Integer
cha = "asd5dsasda6"
For m = 1 To Len(cha)
For i = 1 To 20
If IsNumeric(Mid(cha, m, 1)) = True And IsNumeric(Mid(m + 1, 1)) = True Then pro(i) = CInt(Mid(cha, m, 1) & Mid(m + 1, 1)) Else pro(i) = CInt(Mid(cha, m, 1))
Next i
Next m
MsgBox pro(i)
End Sub
语句If IsNumeric(Mid(cha, m, 1)) = True 是判断为数字时候才用cint()转换为integer.
这个是最后改过的结果,输出后发现不能正确的得出结果5,6,而是都为6,又是哪里的错呢?
Private Sub Command1_Click()
Dim cha As String
Dim pro(2) As String
Dim a, m As Integer
cha = "asd5dsasda6"
For m = 1 To Len(cha)
For i = 1 To 2
If IsNumeric(Mid(cha, m, 1)) = True And IsNumeric(Mid(cha, m + 1, 1)) = True Then pro(i) = Mid(cha, m, 1) & Mid(cha, m + 1, 1) Else pro(i) = Mid(cha, m, 1)
Next i
Next m

Text1.Text = pro(1)
Text2.Text = pro(2)
End Sub

这个vb提示最长那句类型不匹配,不知道错在哪里? vb 运行时提示类型不匹配? VB类型不匹配 vb 类型不匹配 VB类型不匹配是什么意思 VB中类型不匹配 VB程序类型不匹配!! VB类型不匹配问题 求助：VB类型不匹配 在vb中，我一个数组的内容要存进数据库，执行sql提示类型不匹配