> Public Function Deduplicate(xxx As String[]) As String[] > Dim stash As New Collection > > For Each x As String in xxx > stash[x] = True > Next > Return stash.Keys > End > Only if string is compatible with collection key naming .