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

")
s = InputBox("Можешь еще? ")
Select Case s
Case s = да: n = InputBox("Сколько теперь? ")
Case s = нет: MsgBox ("Понятно")
End Select
If z < 10 Then
MsgBox "Быстро устаешь! "
ElseIf z