Excel VBA задача с массивом

[Viol_let]

В массиве все элементы, равные нулю, расположить после первого отрицательного элемента.

Вижу что перемудрила с кодом, но не могу понять где.

Dim a() As Integer
Dim b() As Integer
Private Sub CommandButton1_Click()
m = Val(TextBox1.Text)
m1 = m + 2
 ReDim a(1 To m)
  ReDim b(1 To m1)
 Randomize
 k = 1
 r = 0
 ListBox1.Clear
 ListBox2.Clear
 For i = 1 To m
 a(i) = Int(Rnd * 10) - 5
  ListBox1.AddItem ("a(" + Str(i) + ")= " + Str(a(i)))
  b(i) = a(i)
 Next i
 For i = 1 To m
 If a(i) < 0 Then
 ii = i
 Exit For
   End If
   Next i
     If ii <> 1 Then
   k = 1
   Else
   b(1) = 0
   k = 2
   End If
 If ii <> 1 Then
For i = 1 To ii - 1
b(k) = a(i)
k = k + 1
Next i
b(k) = 0
k = k + 1
End If
For i = m To 1 Step -1
 If a(i) < 0 Then
 i1 = i
 Exit For
   End If
   Next i
    For i = ii To i1
   b(k) = a(i)
   k = k + 1
     Next i
     b(k) = 0
     If i1 <> m Then
     For i = i1 + 1 To m
    b(k + 1) = a(i)
    k = k + 1
    Next i
   End If
 For i = 1 To k
 ListBox2.AddItem ("b(" + Str(i) + ")= " + Str(b(i)))
  Next i
End Sub

[Aleksandr H.]

1)Каким должен быть ответ для таких массивов?

1 0 0 0 -2

1 0 0 -2 1

2) для

1 -2 3 0 4

ответом будет ли

1 0 3 -2 4

?

[Viol_let]

Сообщение от Aleksandr H.

1)Каким должен быть ответ для таких массивов?

1 0 0 0 -2

1 0 0 -2 1

2) для

1 -2 3 0 4

ответом будет ли

1 0 3 -2 4

?

нет не будет