'If TabRefVal(i, 2) Like "*" & TextBoxRef.Value & "*" Then a = a + 1: ReDim Preserve t(1 To a): t(a) = TabRefVal(i, 3)
If TabRefVal(i, 2) Like "*" & TextBoxRef.Value & "*" Then a = a + 1: ReDim Preserve t(1 To 2, 1 To a): t(1, a) = TabRefVal(i, 2): t(2, a) = TabRefVal(i, 3)