数据类型判断

VB编程中遇到的问题：
怎样判断一个输入框中的数值是否为整型，即在一个文本框中输入数字，如果它输入的不是整形则提示错误，怎么判断文本框中的数字不是整型？


[解决办法]
Private Sub Command1_Click()

Dim strTmp As String
Dim blnIsInt As Boolean

strTmp = Trim(Text1.Text)

If IsNumeric(strTmp) Then
blnIsInt = (InStr(1, strTmp, ". ") = 0)
End If

If blnIsInt Then
MsgBox "输入的是整数 "
Else
MsgBox "输入的不是整数 "
End If

End Sub