Ошибка "Loop without Do", хотя в коде они есть - VB

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

Найти первый отрицательный член последовательности cos(ctg(n)) для n изменяющегося следующим образом: n = 1, 2, 3, ... .

Sub Tim()
Dim n As Integer
Dim Y As Integer
n = 1
Do
    Y = Cos(1 / Tan(n))
    If Y < 0 Then
    Debug.Print "n="; n, "Y="; Y: GoTo M
    Else
    n = n + 1
Loop While Y >= 0
M:     End If
End Sub

Помогите исправить код, пишет ошибку "Loop without Do". Заранее спасибо!)

Решение задачи: «Ошибка "Loop without Do", хотя в коде они есть»

textual
                            Листинг программы 
                        
                            While Y >= 0