Организовать проверку введенных данных в TextBox - VB

Формулировка задачи:

Доброго времени суток! Нужна помощь Подскажите как организовать проверку введенных данных в textbox Нада, чтоб если введено не число выскакивало окно msgbox Это я сделал вот так

                    Листинг программы
                
Private Sub txtParamA_Change()
 
If Not IsNumeric(txtParamA.Text) Then
QstBox = MsgBox("Необходимо ввести число!", vbOKOnly)
End If
 
End Sub

Но возникла проблема, мне надо, чтоб поле textbox очищалось Я попытался добавить

                    Листинг программы
                
txtParamA.Text = ""

Поле очищается вот тока опять выскакивает мое окно msgBox, получается выскакивает два раза подряд если ввести не число Помогите плз....

Решение задачи: «Организовать проверку введенных данных в TextBox»

textual
                            Листинг программы 
                        
If Not IsNumeric(txtParamA.Text) And txtParamA.Text <> "" Then
QstBox = MsgBox("Необходимо ввести число!", vbOKOnly)
txtParamA.Text = ""
End If