Нужно найти ошибку - VB

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

Прошу помощи у более опытных пользователей Visual Basic, запутался с else и if нужно создать программу для вычисления саму программу я кое как написал, вот она

Private Sub Command1_Click()
Dim a As Single
Dim b As Single
Dim x As Single
Dim y As Single
a = Val(Textbox1.Text)
x = Val(Textbox3.Text)
If a < 0 Then вот тут я еще не уверен
End If
If a * x > 0 Then
y = 7 * a * x
ElseIf a * x >= -1 And a * x <= 0 Then
y = 1 + 2 * a * x
ElseIf a * x > 0 Then
y = 0.56 * Log(a * x)
End If
Textbox4.Text = Format(y, "Fixed")
End Sub

так то программа работает, но вычисляет она только y = 7 * a * x вот это выражение, т.е. при вводе любых чисел, считается только по этому выражению, а не по всему условию Помогите пожалуйста

Решение задачи: «Нужно найти ошибку»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim a As Single, z As Single, x As Single, snRes As Single
a = Val(Textbox1.Text)
x = Val(Textbox3.Text)
snRes = a * x
If snRes > 0 Then
    If a < 0 Then
        z = 7 * snRes
    Else
        z = 0.56 * Log(snRes)
    End If
ElseIf snRes >= -1 And snRes <= 0 Then
    z = 1 + 2 * snRes
End If
Textbox4.Text = Format(z, "Fixed")
End Sub
                        