If Text1.Text = "" Then 

magbox "请输入半径！" 

ElseIf Not IsNumeric(【6】Text1.Text) Then 

MsgBox "请输入数值数据！