Вычисление функции двумя способами (If Then Else и Select Case) - VBA

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

Здравствуйте, подскажите где я ошибся (значения не те получаются). Есть задание: "Составить программу вычисления функции двумя способами (If Then Else и Select Case). Пояснения 1. При вычислении тригонометрических функций необходимо значение аргумента переводить в радианы. Для этого аргумент функции необходимо умножить 3.142/ 180"

Option Explicit
Sub Ant()
Dim x As Double, y As Double

x = InputBox("Введите значение x")
x = x * 3.142 / 180
If x < 0 Then
y = Log(Abs(x))
ElseIf x >= 0 And x <= 1 Then y = Sin(x)
ElseIf x > 1 And x <= 2 Then y = Cos(x)
ElseIf x > 2 And x < 3 Then y = Log(x)
ElseIf x >= 3 Then y = Log(x) / Log(10)
End If
y = Round(y, 2)
MsgBox ("y = " & y)
 
End Sub

Option Explicit
Sub Ant()
Dim x As Double, y As Double

x = InputBox("Введите значение x")
x = x * 3.142 / 180
Select Case x
Case Is < 0
y = Log(Abs(x))
Case 0 To 1
y = Sin(x)
Case Is > 1, Is <= 2
y = Cos(x)
Case Is > 2, Is < 3
y = Log(x)
Case Is >= 3
y = Log(x) / Log(10)
End Select
y = Round(y, 2)
MsgBox ("y = " & y)
 
End Sub

Сама функция:

Решение задачи: «Вычисление функции двумя способами (If Then Else и Select Case)»

textual
                            Листинг программы 
                        
                            Case Is > 1, Is <= 2