Если вы можете использовать методы расширения LINQ (VB9), тогда да - вы можете использовать Enumerable.Intersect()
:
dim a as String() = {"blah", "bleak", "blorg", "blue"}
dim b as String() = {"blaah", "bleak", "bleee", "blue"}
' c will contain "blah" and "blue" '
dim c as IEnumerable(Of String) = a.Intersect(b)