Sub Tester1()
varr = Array("ABCD", "ADCE", "BCDA", "1234", "ECDA")
varr1 = Filter(varr, "BC", True, vbTextCompare)
For i = LBound(varr1) To UBound(varr1)
Debug.Print varr1(i)
Next
End Sub

--
Regards,
Tom Ogilvy


David Robinson wrote in message
...
can someone post an example of the Filter Function in VB.