Private Sub CommandButton1_Click()

If IsNumeric(TextBox1.Text) And IsNumeric(TextBox2.Text) And IsNumeric(TextBox3.Text) Then

{проверка являются ли введенные значения числами} a = CDbl(TextBox1.Text)

b = CDbl(TextBox2.Text)

c = CDbl(TextBox3.Text)

{в поля мы вводим текст, а работать нам надо с числами поэтому применяем функцию перевода из строкового типа в числовой}

d = b * b - 4 * a * c {находим дискриминант} If d > 0 Then

TextBox4.Text = (-b - Sqr(d)) / (2 * a) TextBox5.Text = (-b + Sqr(d)) / (2 * a) {выводим результат}

ElseIf d = 0 Then TextBox4.Text = -b / (2 * a) TextBox5.Text = " "

Else TextBox4.Text = " " TextBox5.Text = " "

MsgBox "нет действительных корней" End If

Else

MsgBox "Коэффициент должен быть числом" TextBox1.SetFocus

{устанавливаем курсор в поле 1} End If

End Sub

Private Sub userform_initialize()

UserForm1.Caption = "Вычисление корней уравнения" {меняем заголовок формы}

TextBox4.Enabled = False

TextBox5.Enabled = False

{делаем поля 4 и 5 недоступными для редактирования пользователем} End Sub

Вот в принципе и все. Количество и комбинации элементов управления на вашей форме варьируются, что делает пользовательскую форму очень удобным подспорьем, когда нужно проводить много тестов в задаче