Вычислить значение выражения (исправить код) - VB

Sub dd()
Dim d As Double
Dim f As Double
Dim g As Double
Dim h As Double
Dim n As Double
Dim p As Double
Dim m As Double
d = InputBox("d", "")
f = InputBox("f", "")
g = InputBox("g", "")
h = InputBox("h", "")
m = (d - f) / (g + h)
If m < 0 Then
n = Abs(m)
Else
n = Sqr(m)
If m = 0 Then
n = d * d
End If
End If
If 1 < d < 2 Then
p = n - d
Else
p = 1 / n
End If
Range("A1") = m
Range("B1") = n
Range("C1") = p
End Sub