Номер первого отрицательного чиста в последовательности - VBA

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

В последовательности sinx^n (n=1,2,…,30) найти номер первого отрицательного числа. Если такого не найдется, выдать сообщение. Значения элементов последовательности поместить в ячейки столбца C. Пожалуйста, напишите синтаксис от Do до Loop Заранее большое спасибо.

Решение задачи: «Номер первого отрицательного чиста в последовательности»

textual
                            Листинг программы 
                        

                            Dim Y(1 To 30), n#, x#
x = 0.5
Do
n = n + 1
Y(n) = Sin(x) ^ n
If Y(n) < 0 Then MsgBox "при n=" & n & " ф-ция имеет отрицательный ответ.": Exit Do
Loop Until n = 30
MsgBox "при x=" & x & " ф-ция не имеет отрицательный ответ."
Range("C1").Resize(30, 1) = Application.Transpose(Y)
                        