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

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

Ребята, доброго времени суток. Задача стоит такая:"Сжать массив, выбросив из него элементы, соответствующие чёрному цвету". При запуске программы, если черный цвет, то бишь значение равное 0, попадает на последний элемент массива, то программа выполняется не корректно, а точнее выводит нечто мне не постижимое. Вот часть кода, где происходит "сжатие". Помогите, пожалуйста.

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

Решение задачи: «Удаление элемента массива со смещением»

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

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