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

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

Подскажите как исправить ошибки. Код задачи на 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

Решение задачи: «Подскажите как исправить ошибки.»

textual
                            Листинг программы 
                        
if b> 0 then y = Sqr(A / B)