if asc(ch)>=48和ASC(ch)& lt；那麽=57
Msgbox“數字”
else if ASC(lcase(ch))& gt；=97和ASC(lcase(ch))& lt；=122然後
Msgbox“字母”
其他
Msgbox“其他”
如果…就會結束
如果isNumeric(ch)那麽msgbox“是壹個數”可以用來判斷數。