Линейные алгоритмы. Вычислить значение выражения по формуле (все переменные принимают действительные значения)

Sub ex_1()
'Описание переменных
Dim a, b, c, d As Double
Dim rez As Double
'Ввод значений переменных
a = CDbl (InputBox("a="))
b = CDbl (InputBox("b="))
c = CDbl (InputBox("c="))
d = CDbl (InputBox("d="))
rez = a / c * b / d - (a * b - c) / (c * d)
'Вывод результата
MsgBox "Результат равен " + CStr(rez)
End Sub