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

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack '允许 0~9数字和退格键
Case Asc(".") '允许一个小数点
 If InStr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
  Case Else
KeyAscii = 0
MsgBox "只能输入数值!", vbExclamation, "Error" 'Error为错误标题
End Select
End Sub

路过，顶一下

好牛啊.