effettua un controllo sul valore della text
all'evento lostfocus

If Not IsNumeric(text1.Text) Then ...