如图：
代码如下：
Sub test()
Dim sr As String
sr = InputBox("请输入一个字符")
If Asc(sr) >= "a" And Asc(sr) <= "z" Then
MsgBox "您输入的是小写字母"
ElseIf Asc(sr) >= "A" And Asc(sr) <= "Z" Then
MsgBox "您输入的是大写字母"
ElseIf Asc(sr) >= "0" And Asc(sr) <= "9" Then
MsgBox "您输入的是数字"
Else
MsgBox "您输入的是其他字符"
End If
End Sub

很明显，试着都加上asc()，然后再比较
如果没有错误，不就OK了。
其实，如果都不加asc()，也是可以比较大小的。

vba是结合excel使用表格数据的，没必要在提示框、窗体以及窗体控件上花费太大精力。要把重点放在如何处理表格数据上，就跟学习如何灵活使用excel表格函数一样。因此我建议重点是掌握如何引用表、单元格、区域、循环和数组等。而inputbox、msgbox这些在我看来基本没什么用。
可能我理解也不深。

那个蓝色幻想看看，我就看这个

谢谢大家的建议，修改了代码，基本实现了想法，代码如下：
Sub test()
Dim sr As String
Do
sr = InputBox("请输入一个字符")
If Len(sr) = 0 Then
MsgBox "字符不能为空，请重新输入"
ElseIf Len(sr) > 1 Then
MsgBox "字符长度超出2位，请重新输入"
Else
Exit Do
End If
Loop
If sr >= "a" And sr <= "z" Then
MsgBox "您输入的是小写字母"
ElseIf sr >= "A" And sr <= "Z" Then
MsgBox "您输入的是大写字母"
ElseIf sr >= "0" And sr <= "9" Then
MsgBox "您输入的是数字"
Else
MsgBox "您输入的是其他字符"
End If
End Sub