你用的都是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
这种表达方法是VB认可的，但意思不一定是您想比达的。
按照从左到右，以及隐含类型转换的规则。其含义如下：
先计算48=A，若A大于等于48，则计算结果为True,否则为False
然后计算True(或False)=57，这时由于是不同类型的数据进行比较，程序进行隐含的类型转换，转换的规则是将boolen量转为int。False为0，True为-1(0xffff)。
所以True(或False)=57相当于-1(0)=57，这个比达式恒为True的。
要真实表达楼主的意头，就当为A=48 and A=57
可以用VB6里的函数
isnumeric()
比如要判断文本框里的内容是否数字
if isnumeric(TextBox1.text) Then
msgbox("是数字！")
else
msgbox("不是数字！")
end if
int 型，取值范围-2,147,483,648 到 2,147,483,647 ，默认值是 0 int是值类型，读内存区间中指定长度单元里的数据，这块单元就算不做任何处理也全是0，那么数值就是0 所以，int 型，永远不会为空，从声明一个 int 变量时，它默认就是0，而不是空
如果用常规编程的方法：
直接用split（str1，“，”）的形式把str1字符串分成字符串数组，然后用for循环判断每个数组元素是否是数字或者是字符串就可以了。
