Определить, имеются ли в данной последовательности два идущих подряд нулевых числа

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim W(10) As Integer
Dim a As Integer
Dim b As Integer
n = InputBox("Введите количество членов n=")
For i = 1 To n
W(i) = InputBox("Введите a(" & i & ") ")
Next i
If W(i) = 0 And W(i + 1) = 0 Then
a = 1
Else
a = 0
MsgBox a
End If
End Sub

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim W() As Integer
n = InputBox("Введите количество элементов n=")
ReDim W(n)
For i = 1 To n
W(i) = InputBox("Введите a(" & i & ") ")
Next i
For i = 1 To n - 1
If W(i) = 0 And W(i + 1) = 0 Then
MsgBox "есть"
Exit Sub
End If
Next i
MsgBox "нет"
End Sub

FOR i = 2 TO n 
IF W(i-1) = 0 AND W(i) = 0 THEN
MsgBox "есть"
EXIT SUB
END IF

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim W() As Integer
n = InputBox("Введите количество элементов n=")  'верхняя граница массива
ReDim W(n)                                                        'установка размерности
For i = 0 To n - 1                                                'цикл по элементам массива
W(i) = InputBox("Введите a(" & i & ") ")                   'их заполнение
Next i
For i = 0 To n - 1
If W(i) = 0 And W(i + 1) = 0 Then                         'если два нуля подряд то...
MsgBox "есть"                                                   'все OK
Exit Sub                                                          'выход из процедуры
End If
Next i
MsgBox "нет"                                                  'не нашли
End Sub

FOR i = 10 TO n - 9
IF W(i-9) = 0 AND W(i -8) = 0 THEN