Табуляция! Необходимо исправить программу - VB

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

По первой формуле считает верно, переходит на вторую и третью-выдаёт не верные результаты, проверял в MathCad, Скрины прилагаю. Не выводит результат х=2. Помогите разобраться в чём ошибка

Dim x As Single, y As Double
Const a As Single = 1.65
Const Pi As Single = 3.14159265358979
 
Private Sub Command1_Click()
For x = 0.7 To 2 Step 0.1
    If x < 1.34 Then
        y = Pi * x ^ 2 - 7 / x ^ 2
    ElseIf x = 1.4 Then
        y = a * x ^ 3 + 7 * Sqr(x)
    Else
        y = Log(x + 7 * Sqr(Abs(x + a)))
    End If
        List1.AddItem x & vbTab & y
Next x
End Sub

Решение задачи: «Табуляция! Необходимо исправить программу»

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

                            Dim x As Double, y As Double
Const a As Double = 1.65
Const Pi As Double = 3.14159265358979
 
Private Sub Command1_Click()
For x = 0.7 To 2.001 Step 0.1
    If x < 1.301 Then
        y = Pi * x ^ 2 - 7 / x ^ 2
    ElseIf x < 1.401 Then
        y = a * x ^ 3 + 7 * Sqr(x)
    Else
        y = Log(x + 7 * Sqr(Abs(x + a)))
    End If
    'Debug.Print x & vbTab & y
    List1.AddItem x & vbTab & y
Next x
End Sub
                        