How would I create a command that checks to see the text in a textbox and if its not numeric then to display a message..

For example..

Code:
Private Sub cmdgo_Click()
If Text1.text = Not Numeric Then
Msgbox "Not Numeric"
End If


Thankyou