Написать код и нарисовать блок-схему - VB

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

Помогите пожалуйста решить: Задана произвольная последовательность целых положительных чисел, среди которых есть одно отрицательное. Определить наибольшее значение среди членов последовательности, расположенных до отрицательного члена (числа вводятся по одному)

Решение задачи: «Написать код и нарисовать блок-схему»

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

                            Private Sub Command1_Click()
Dim b() As Integer, i As Byte, O As Integer, max As Integer, n As Byte
n = InputBox("Vvedite kol-vo elementov")
ReDim b(1 To n) As Integer
For i = 1 To n
b(i) = InputBox("Vvedite element: " & i)
Next i
O = 0
For i = 1 To n
If b(i) < 0 Then
O = i
Exit For
End If
Next i
If O = 0 Then MsgBox ("Net otrizatelnix"): Exit Sub
If O = 1 Then MsgBox ("Otricatel'noe - pervoe"): Exit Sub
max = b(1)
For i = 1 To O - 1
If b(i) > max Then max = b(i)
Next i
MsgBox (max)
End Sub
                        