Вычислить значения по разным формулам - VBA

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

Форумчане, помогите с программированием. Нужно прописать систему уравнений в vba , вроде все прописал, но в ответе вместо значение (z) выскакивает true, и когда корней нет, все равно указывает числовое значение для (y). Где у меня допущена ошибка? ( пытался скинуть файл экселя, но сайт пишет, что превышен допустимый размер для данного типа файлов) (Прописал ниже уже прописанное мной)

                    Листинг программы
                
 
                        
                          
                    
Sub L1()
 
Dim a As Single, b As Single, c As Single, x As Single, d As Single
 
a = CSng(InputBox("Ведите значение (а)"))
b = CSng(InputBox("Ведите значение (b)"))
c = CSng(InputBox("Ведите значение (c)"))
x = CSng(InputBox("Ведите значение (x)"))
d = CSng(InputBox("Ведите значение (d)"))
 
If Sqr(a * x + a) + d Then
    If Abs(x) < d Then Z = Sqr(a * x + 1) >= 0
Else
MsgBox ("Корней нет")
End If
  If Sin(b * x + 1) >= -1 And Sin(b * x + 1) <= 1 Then
     If Abs(x) = d Then Z = Sin(b * x + 1) >= -1 And Sin(b * x + 1) <= 1
Else
MsgBox ("Корней нет")
End If
 
 If Cos(c * x + 1) >= -1 And Cos(c * x + 1) <= 1 Then
     If Abs(x) = d Then Z = Cos(c * x + 1) >= -1 And Cos(c * x + 1) <= 1
Else
MsgBox ("Корней нет")
End If
 
 y = Cos(Z) + Ln * (Z * a \ x)
 If x <> 0 Then
 Else
 MsgBox ("Корней нет")
End If
 
If (Z * a) \ x > 0 Then
 Else
 MsgBox ("Корней нет")
End If
 
MsgBox "y: " & y
MsgBox "z: " & Z
 
End Sub

Решение задачи: «Вычислить значения по разным формулам»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub L1()
 
Dim a As Double, b As Double, c As Double, x As Double, d As Double, Z As Double, y As Double
 
a = InputBox("Ведите значение (а)")
b = InputBox("Ведите значение (b)")
c = InputBox("Ведите значение (c)")
x = InputBox("Ведите значение (x)")
d = InputBox("Ведите значение (d)")
 
If Abs(x) < d Then
  Z = Sqr(a * x + 1) + d
ElseIf Abs(x) = 0 Then
  Z = Sin(b * x + 1)
Else
  Z = b ^ 3 * Cos(c * x + 1)
End If
 
y = Cos(Z) + Log(Z * a / x) 
 
MsgBox "y: " & y & vbLf & "z: " & Z
 
End Sub