Ветвления на языке VBA - Преобразование программы

Необходимо, преобразовать программу следующим образом:

Sub выражение7()

Dim x, y, z As Double

x = Val(InputBox("Введите x="))

y = Val(InputBox("Введите y="))

If x - y <> 0 Then

z = (x + y) / (x - y)

MsgBox ("z=" + Str(z))

Else

MsgBox ("Знаменатель равен =0")

End If

End Sub

Для организации ветвлений в языке VBA предусмотрено несколько операторов: If и Select Case.

Общий вид оператора If:

If выражение Then [инструкции]

[ElseIf выражение-n Then [иначе_если_инструкции] ...

[Else [иначе_инструкции]]

End If

Выражение должно возвращать логическое значение: истина или ложь (True или False).