В строке "Select Case Ответ" пишет : "ожидается выражение".В чем ошибка? Помогите!

Sub example4()
Dim x, y, s, a, p As Double
Dim n As Integer
10 x = CSng(InputBox(" Введите аргумент X" _
& vbLf & " для ф-ции SIN(X):"))
'ВЫЧИСЛЕНИЕ СУММЫ ЧЛЕНОВ ЗАДАННОГО РЯДА
s = 0: p = ((x - 1) / (x + 1))
k = 1:
a = 1
Do While (Abs(a) >= 1e-06)
s = s + a
a = x ^ k
p = -p * (k - 1) * k
a = a / p
k = k + 1
Loop
y = 0.5 * Ln(x) 'Непосредственное вычисление заданной функции
'Вывод результатов
Ответ = MsgBox(" Заданное значение аргумента X=" & x _
& vbLf & "Вычисленная сумма ряда S=" & s _
& vbLf & "Количество членов ряда K=" & k _
& vbLf & "Функция 0.5 * Ln(x)=" & y, _
vbRetryCancel, "Результат работы процедуры")
Seleсt Case Ответ
Case vbRetry: GoTo 10
Case vbCancel: GoTo 20
End Select

20 End Sub