这段代码有什么问题

ttu221

    Dim arr, i%, iR%, brr(), k%
    arr = Range("a2:g" & Range("g65536").End(xlUp).Row)
    iR = UBound(arr, 1)
    With UserForm1
        For i = 1 To iR
            If InStr(arr(i, 7), .TextBox1.Text) Then
                k = k + 1
                ReDim Preserve brr(1 To 2, 1 To k)
                brr(1, k) = arr(i, 7)
                brr(2, k) = arr(i, 6)
                End If
        Next

ttu221

自己突然知道了，定义错了，应为a2:h