Как из 2-мерного массива удалить все строки удовлетворяющие условию

Option Base 1
Dim a(50, 50) As Single
Dim b(50) As Single
'----------------------------------------------------------------------
' Генерация массива
Picture1.Cls
n = Val(Text1.Text)
m = Val(Text2.Text)
Randomize
For i = 1 To n
  For j = 1 To m
a(i, j) = Int(101 * Rnd - 50)   'заполняет массив в диапазоне [-50;50]
Picture1.Print a(i, j);
  Next j
Picture1.Print
Next i
Picture1.Print
Picture1.Print
 
q = 0
For i = 1 To n
p = 0
x = 0
  For j = 1 To m
    If a(i, j) Mod 3 = 0 Then p = 1
    'Picture1.Print q;
  Next j
  If p > 0 Then q = q + 1
  Picture1.Print
Next i
Picture1.Print q
Picture1.Print n
ReDim Preserve b(n-q,m)
 
q = 0
For i = 1 To n
p = 0
x = 0
  For j = 1 To m
    If a(i, j) Mod 3 = 0 Then p = 1
  Next j
  If p = 1 Then q = q + 1 Else x = x + 1:
     For t = 1 To m
     b(x, t) = a(i, t)
     Next t
     Picture1.Print q
  Picture1.Print
Next i
For i = 1 To n
  For j = 1 To m
     Picture1.Print b(i, j);
  Next j
Picture1.Print
Next i
Picture1.Print
Picture1.Print