MakeArrayFromSearch

Function MakeArrayFromSearch(SearchStr As String) As Variant
MySel.Search SearchStr
Dim TempArr()
If MySel.Count = 0 Then
    ReDim TempArr(0)
    MakeArrayFromSearch = TempArr
    Exit Function
End If
ReDim TempArr(MySel.Count - 1)
For X = 0 To MySel.Count - 1
    Set TempArr(X) = MySel.Item(X + 1).Value
Next X
MakeArrayFromSearch = TempArr
End Function