FilterArray

Sub Filter(arr() As String, ByVal Search As String, Optional ByVal Include As _
Boolean, Optional ByVal CompareMethod As VbCompareMethod = vbBinaryCompare)
Dim index As Long
Dim count As Long

count = LBound(arr) - 1

For index = LBound(arr) To UBound(arr)
If (InStr(1, arr(index), Search, CompareMethod) > 0) = Include Then
' this item must be included

count = count + 1
If index <> count Then
' copy data only if necessary

arr(count) = arr(index)
End If
End If
Next
' trim items in excess

If count < UBound(arr) Then
ReDim Preserve arr(LBound(arr) To count) As String
End If

End Sub