Очень прошу посмотреть код! - VBA

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

Помогите кто-нибудь, пожалуйста! Написала такой вот код, но мне выдает ошибку "Case Without Select Case" на выделенной строчке. Прошу, очень нужна помощь! Как это исправить???

Private Sub CommandButton1_Click()
Dim k, x, Y As Single
k = Val(InputBox("Введите число k", "Ввод данных"))
x = Val(InputBox("Введите число x", "Ввод данных"))
Select Case x
Case 6 To 8.1
If k = 1 Or 5 Or 8 Then
Y = Exp(x) / 4 * x
Else:
If k >= -4 And k <= 0 Then
Y = Exp(-x) / 2 * x + Cos(x)
Else:
If k >= 9 Then
Y = (Cos(x)) ^ 2
Else: Y = 0
Case Is <= 0
Y = (Tan(x)) ^ 4
Case 0 To 6
Y = (Log(x) + Exp(x)) ^ 2
Case Else
Y = 1
 
End Select
End Sub

Решение задачи: «Очень прошу посмотреть код!»

textual
                            Листинг программы 
                        
                            If k = 1 Or 5 Or 8 Then