Программный код - VB (61229)

Dim a As Single, b As Single, c As Single, d As Single
Dim Z As Single
Private Sub Command1_Click()
1   a = Val(InputBox("Введите а", "Ввод"))
    b = Val(InputBox("Введите b", "Ввод"))
    c = Val(InputBox("Введите c", "Ввод"))
    d = Val(InputBox("Введите d", "Ввод"))
Text1 = Str(a)
Text2 = Str(b)
Text3 = Str(c)
Text4 = Str(d)
If a = b Then
  Text5 = " "
  MsgBox "Не правильно заданы значения"
  GoTo 1
End If
If c = d Then
  Text5 = " "
  MsgBox "Не правильно заданы значения"
  GoTo 1
End If
    If a > b Then
        If c < d Then
            Z = e ^ 4.6 - 3 * Log(c - c * d)
            Text5 = Z
            MsgBox "Уравнение №1"
        Else
            Z = (Cos(c * d) ^ 2) / (a * (b - c * d))
            Text5 = Z
            MsgBox "Уравнение №3"
        End If
    Else
        If c > d Then
            Z = 2.5 + b * d
            Text5 = Z
            MsgBox "Уравнение №4"
        Else
            Z = ((b - 1) * a * Sqr(Cos(a * c))) ^ (1 / 4)
            Text5 = Z
            MsgBox "Уравнение №2"
        End If
    End If
End Sub