Сформировать одномерный массив из элементов матрицы А по условию - VB

Option Explicit
Dim A(3, 3) As Long
Dim B() As Long
Dim i%, j%, k%, u%, S%
Dim CA As Single
 
Private Sub com1_Click()
    Randomize Timer
    Cls
    For i = 0 To 3
    For j = 0 To 3
        A(i, j) = 20 * Rnd
        Print Format(A(i, j), "   00");
    Next: Print
    Next: Print
    
    For i = 0 To 3
    For j = 0 To 3
        S = S + A(i, j)
    Next j, i
    CA = S / 16
    Print "CA ="; CA
    
    For i = 0 To 3
    For j = 0 To 3
        If CA <= A(i, j) And A(i, j) <= 2 * CA Then k = k + 1
    Next j, i
    
    ReDim B(k - 1)
    
    For i = 0 To 3
    For j = 0 To 3
        If CA <= A(i, j) And A(i, j) <= 2 * CA Then
            B(u) = A(i, j)
            u = u + 1
        End If
    Next j, i
    
    For i = 0 To k - 1
        Print B(i);
    Next i
End Sub