Подскажите как исправить ошибки. - VB

Sub zadanie3()
    Dim A As Double, B As Double, x As Double, y As Double
    A = Val(InputBox("Введите значение A"))
    B = Val(InputBox("Введите значение B"))
    x = Val(InputBox("Введите значение X"))
    If (x > 10) Then
        ' нужно проверить b > 0
        y = Sqr(A / B)
    ElseIf (0 < x < 10) Then
        ' нужно проверить a <> 0 and b - a > 0 and (A - B) ^ (A + B) > 0
        ' нужно проверить b > 0
        y = x * (((A + B) / A) + ((Sin(Exp(A) + 7)) / Sqr(B - A)) + (Log((A - B) ^ (A + B))))
    ElseIf (x < 0) Then
        y = 0
    End If
    MsgBox "Ответ: " + CStr(y)
End Sub