Почему то пропускает середину программы.. . в чем ошибка???

")
s = InputBox("Можешь еще? ")
Select Case s
Case s = да: n = InputBox("Сколько теперь? ")
Case s = нет: MsgBox ("Понятно")
End Select
If z < 10 Then
MsgBox "Быстро устаешь! "
ElseIf z <= 20 Then
MsgBox "У тебя хорошая физическая подготовка! "
ElseIf z <= 30 Then
MsgBox "Ты готов к участию в соревнованиях! "
ElseIf z > 30 Then
MsgBox "Можешь участвовать в олимпиаде! "
End If
End Sub