如果用常规编程的方法：
成都创新互联公司专业为企业提供湛江网站建设、湛江做网站、湛江网站设计、湛江网站制作等企业网站建设、网页设计与制作、湛江企业网站模板建站服务，十多年湛江做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
直接用split（str1，“，”）的形式把str1字符串分成字符串数组，然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
你用的都是vb6的代码，改成：
Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus
If IsNumeric(TextBox1.Text) = False Then
MsgBox("输入有非数字字符，请重新输入", vbOKOnly, "友情提示")
TextBox1.Focus()
Return
End If
End Sub
计算溢出
1检查写入前是否对变量进行了计算操作+=*/等，如果是：
（1）检查除数与被除数是不是至少有一个不是数字，例如空值，文字，等
（2）检查除数是否为0
2声明的是数字型变量，存储并写入了文本型数据（这种情况通常会报错，提示类型不能转换）
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字！")
else
msgbox("不是数字！")
end if