Помогите, пожалуйста, написать программу в VBA. Последовательность действительных чисел оканчивается нулем. Найти количество членов этой последовательности.

Sub aaa()    Const n = 50    Dim a(1 To n) As Double, Zero As Boolean    Randomize Timer    For i = 1 To n        a(i) = Int(21 * Rnd - 10)    Next i    k = 0: Zero = False    For i = 1 To n        If a(i) = 0 Then            Zero = True            Exit For        End If    Next i    If Zero Then        MsgBox "Количество членов последовательности равно " + CStr(i)    Else        MsgBox "В последовательности нет нулей"    End IfEnd Sub