e = Val(Text2.Text)
If e < Asc("0") Or e > Asc("9") Then
e = 0
k = MsgBox("学号中只能输入数字，不包含其他字符！ ", vbExclamation)
'Text2.Text = ""
Exit Sub
End If
 我是想判断输入的是否是字符串。asc()我查了只能判断第一个字符。
这里写0和9而不写字母会返回什么？

呵呵我自己解决了
用了个函数
是这样的
If IsNumeric(Text2.Text) = False Then  '判断输入的是否都是数字
MsgBox "只能输入数字！", 48, "提示"
Exit Sub
End If