Не работает программа - VB

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

В общем нужно составить прогу. Задать массив из 7 значений. вывести на экран значение первого отрицательного числа и его порядковый номер если нет отрицательных тогда вывести что их нет. я составил но она косячит не выводит если нет отрицательных. Вот код помогите плиз оч надо. Private Sub CommandButton1_Click() Dim a() As Variant Dim i As Integer Dim b As Integer ReDim a(1 To 7) For i = 1 To 7 a(i) = Val(InputBox("çàïîëíèòå ìàññèâ")) ListBox1.AddItem a(i) Next i TextBox1 = "íåò" TextBox2 = "íåò" i = 0 Do i = i + 1 Loop While a(i) > 0 TextBox1 = a(i) TextBox2 = i End Sub нужно задать условие но я не знаю какое и где

Решение задачи: «Не работает программа»

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

                            Dim a(6) As Variant
For i As Integer = 0 To 6
a(i) = Val(InputBox("Введите число"))
Next
For j As Integer = 0 To 6
    If a(j) < 0 Then
        msgbox ("Порядковый номер: " & j & " значение " & a(j))
        Exit Sub
    End If
Next
Msgbox("Отрицательных чисел не вводилось")
                        