Удаление элемента массива со смещением

Private Sub Command4_Click()
 n = 14
 r = 0
 
  For k = 1 To 10
  For i = 1 To n
 
  If Mas(i) = 0 Then
 Print "CH CV"
   If Mas(14) = 0 Then
  Label14.BackColor = &H8000000F
  End If
  For j = i To n - 1
  Mas(j) = Mas(j + 1)
  Next j
   r = r + 1
 
End If
  Next i
  Next k
   If r = 0 Then
   MsgBox "Сжатие невозможно"
   End
   End If
  Print "Чёрных квадратов = "; r
  n = n - r
     For i = 1 To n
      Print "value"; i; "znach"; Mas(i)
Next i
 
End Sub

Option Explicit
Const r = 90
Dim WithEvents cb As CommandButton
Dim a$(), i&, s$, t&, v
 
Private Sub cb_Click()
    a = Filter(a, "Черный", False, 1)
    Создание_лэйблов
End Sub
 
 
Private Sub Создание_лэйблов()
    For Each v In Controls
        If TypeName(v) = "Label" Then Controls.Remove v
    Next
    t = r + cb.Height
    For i = 0 To UBound(a)
        With Controls.Add("vb.label", "l" & i)
            .BackColor = IIf(InStr(1, a(i), "Черный", 1), vbBlack, vbWhite)
            .ForeColor = vbGrayText
            .AutoSize = 1
            .Caption = a(i)
            .Move r, t: t = t + .Height
            .Visible = 1
        End With
    Next
 
End Sub
 
Private Sub Form_Load()
    s = ""
    Set cb = Controls.Add("vb.CommandButton", "cb"): With cb
        .Move r, r
        .Caption = "Убрать черные"
        .Visible = 1
    End With
    Randomize Timer 'Создаем массив
    For i = 1 To 10
        s = s & " " & i & "-" & IIf(Fix(Rnd * 2), "Черный", "Белый")
    Next: a = Split(Mid$(s, 2))
    Создание_лэйблов
End Sub

'::: удаление из массива Arr нулей и отрицательных
'::: положительные переносятся в начало массива
'::: m - количество положительных
Sub PressArr(Arr() as integer, m as integer)
      i_from%=1
      i_to%=1
      n=Ubound(Arr)
      Do while (i_from%<=n)
         if Arr(i_from%) > 0 then
           Arr(i_to%)=Arr(i_from%)
           i_to%=i_to%+1
         end if
         i_from%=i_from%+1
      Loop
      m=i_to%-1
End sub

          '
          ' Dim ИНДИФИКАТОР_ПЕРЕМЕННОЙ_ИМЯ_ПЕРЕМЕННОЙ   as ТИП_ПЕРЕМЕННОЙ
          ' Все просто, наглядно и понятно....))))
 
          Option Explicit
 
          Dim intZapis   as Integer
          Dim strFix      as String
          Dim btFlag     as Byte