Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case - VB

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

Во вложении функция. Задание: Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case. Вот первая программа с использованием

Private Sub Command1_Click()
 
Dim x As Double  
Dim y As Double 
x = CDbl(Text1.Text)
If x < -3.14 / 2 Then
    y = 0
ElseIf x > 3.14 / 2 Then
    y = 1
Else
    y = Sin(x)
End If
Label1.Caption = CStr(y)
End Sub

Вот вторая программа с использованием

Select Case

Private Sub Command1_Click()
 
Dim x As Double  
Dim y As Double 
x = CDbl(Text1.Text)
Select Case x
    Case Is < -3.14 / 2
        y = 0
    Case -3.14 To 0
        y = -Sin(x)
    Case Is > 3.14 / 2
        y = 1
 
End Select
Label1.Caption = CStr(y)
End Sub

Проблема в том, что у меня не получается вставить еще одно условие в первой программе про "y=-sin(x)", а во второй программе про "y=sin(x)". А они оба должны быть и в той, и в той программе. Подскажите пожалуйста, что надо исправить?

Решение задачи: «Написать программу для вычисления значения функции с использованием операторов ветвления If и выбора Select Case»

textual
                            Листинг программы 
                        
                            Print "Г‘Г*Г¬Г*Гї Г«ГҐГўГ*Гї ГІГ®Г·ГЄГ* Г± Г®ГІГ°ГЁГ¶. Г§Г*Г*Г·ГҐГ*ГЁГҐГ¬ ГґГіГ*ГЄГ¶ГЁГЁ " & x & " " & y