Optime intende una cosa del genere.

Questi due array sono diversi:
Ar1 = "B","C"
Ar2 = "C","B"

codice:
Function IsEqualArray(byRef Ar1,ByRef Ar2,CompareMode)
IsEqualArray = StrComp(Join(ar1),Join(ar2),CompareMode)=0
End Function