задача в vb

[WWWTED]

добрый вечер. помогите пожалуйста дополнить(исправить) задачу.(надо сделать так что бы при вводе отрицательного числа выходила надпись "введите корректные данные")
Тело брошено под углом. Задана начальная скорость и угол полета. Определить максимальную высоту полета.
вот моё
Dim a, v As Variant
Private Sub Command1_Click()
v = Val(Text1.Text)
a = Val(Text2.Text)
z = Val(введите корректные данные)
If v < 0 Or a < 0 Then
Text3.Text = (z)
End If
h = (v ^ 2 * Cos(a * 3.14 / 180) * Cos(a * 3.14 / 180)) / (2 * 9.8)
Text3.Text = (h)
End Sub

[EducatedFool]

Private Sub Command1_Click()
    v = Val(Text1.Text)
    a = Val(Text2.Text)
    If v < 0 Or a < 0 Then
        Text3.Text = "введите корректные данные"
        Exit Sub    ' выход из процедуры
    End If
    h = (v ^ 2 * Cos(a * 3.14 / 180) * Cos(a * 3.14 / 180)) / (2 * 9.8)
    Text3.Text = h
End Sub

[WWWTED]

Сообщение от EducatedFool

Private Sub Command1_Click()
    v = Val(Text1.Text)
    a = Val(Text2.Text)
    If v < 0 Or a < 0 Then
        Text3.Text = "введите корректные данные"
        Exit Sub    ' выход из процедуры
    End If
    h = (v ^ 2 * Cos(a * 3.14 / 180) * Cos(a * 3.14 / 180)) / (2 * 9.8)
    Text3.Text = h
End Sub

спасибо
а можно сделать так чтобы при вводе отрицательного числа выводилось Text3.Text = "введите корректные данные"

[EducatedFool]

а можно сделать так чтобы при вводе отрицательного числа выводилось Text3.Text = "введите корректные данные"

До нажатия кнопки?
Да, можно.

дважды щелкните на текстбоксах Text1 и Text1, и в обработчики событий вставьте нужный код.

Должно получиться что-то вроде этого:

Private Sub Text1_Change()
    If Val(Text1.Text) < 0 Then
        Text3.Text = "введено отрицательное число"
    Else
        Text3.Text = ""
    End If
End Sub

Private Sub Text2_Change()
    If Val(Text2.Text) < 0 Then
        Text3.Text = "введено отрицательное число"
    Else
        Text3.Text = ""
    End If
End Sub

[WWWTED]

Сообщение от EducatedFool

До нажатия кнопки?
Да, можно.

дважды щелкните на текстбоксах Text1 и Text1, и в обработчики событий вставьте нужный код.

Должно получиться что-то вроде этого:

Private Sub Text1_Change()
    If Val(Text1.Text) < 0 Then
        Text3.Text = "введено отрицательное число"
    Else
        Text3.Text = ""
    End If
End Sub

Private Sub Text2_Change()
    If Val(Text2.Text) < 0 Then
        Text3.Text = "введено отрицательное число"
    Else
        Text3.Text = ""
    End If
End Sub

большое спасибо за помощ