در رویداد textchanged  یک جعبه متن کد زیر را بنویسید

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

If IsNumeric(Me.TextBox1.Text) = False Then

Me.TextBox1.Text = ""

End If

End Sub