提问一下 求大神解答 谢谢啦TUT

1. 按图2-1（a）所示设计窗体界面，窗体内有3个标签、2个按钮、1个文本框，输入、输出项控件的初值均为空，所有控件的字体、大小均为默认值。要求：输入半径，计算圆面积和圆周长，为保证程序运行的正确，对输入的半径值进行合法性检查（不能含有非数字字符、不能为负数，通过按Tab键进行检查），数据检查调用IsNumeric函数等；若有错，利用MsgBox显示出错信息，如图2-1（b）所示，然后光标定位于文本框处，重新输入；若正确，通过计算按钮计算相应结果。计算结果保留2位小数，第一、第二位小数是零也要显示，圆周率取3.14。
这是题目

然后 ，就他说的用IsNumeric函数做
我一开始是这样：
Private Sub Text1_LostFocus()
If Not IsNumeric(Text1.Text) < 0 Then
MsgBox "输入错误，请重新输入！", , "警告"
Text1.Text = ""
Text1.SetFocus
End If
End Sub
但是填了负数进去之后没有反应QAQ