Массивы в VBA! Help, please!!!

Option Explicit
'// аргументы:
'// ar - исходный двухмерный массив
'// n - число положительных чисел подряд
Function ExtractArray(ar As Variant, n As Integer) As Variant
Dim i As Integer, j As Integer
Dim m As Integer, q As Integer
Dim outArr() As Variant
Dim check As Boolean
check = False
For i = 0 To UBound(ar, 1)
For j = 0 To n - 1
If ar(i, j) > 0 Then
check = True
Else
check = False
Exit For
End If
Next
If check = True Then
ReDim Preserve outArr(q + UBound(ar, 1))
For m = 0 To UBound(ar, 1)
outArr(q) = ar(i, m)
q = q + 1
Next
End If
Next
ExtractArray = outArr
End Function
'//===============================//'
'// test
Sub TestArray()
Dim ar(10, 10) As Integer
Dim i As Long, j As Long
Dim m As Integer, n As Integer, q As Integer
Dim check As Boolean
check = False
For i = 0 To 10
For j = 0 To 10
If i * j Mod 3 = 0 Then
ar(i, j) = j + i + 1
Else
ar(i, j) = (-3 * (j + i + 1))
End If
Next
Next
Dim outArr() As Variant
n = 3
outArr = ExtractArray(ar, n)
End Sub

Public Sub ArrayTest()
'// для простоты область 8х8 ячеек:
With ActiveSheet.Range("C1:J8") <--измени на свои данные
.Select
Dim ar() As Variant
ar = Selection.Value
End With
Dim outArr() As Variant
outArr = ExtractArray(ar, 3)
End Sub
'// аргументы:
'// ar - исходный двухмерный массив
'// n - число положительных чисел подряд
Function ExtractArray(ar As Variant, n As Integer) As Variant
Dim i As Integer, j As Integer
Dim m As Integer, q As Integer
Dim outArr() As Variant
Dim check As Boolean
check = False
For i = LBound(ar, 1) To UBound(ar, 1)
For j = LBound(ar, 2) To n
If ar(i, j) > 0 Then
check = True
Else
check = False
Exit For
End If
Next
If check = True Then
ReDim Preserve outArr(q + UBound(ar, 1))
For m = LBound(ar, 1) To UBound(ar, 1)
outArr(q) = ar(i, m)
q = q + 1
Next
End If
Next
ExtractArray = outArr
End Function