例: ArrayUnique function

'Declare array of variants
Dim myTestarr(4) as variant
myTestArr(0) = "abc DEF Ghi"
myTestArr(1) = "ABC def gHi"
myTestArr(2) = "abc DEF Ghi"
myTestArr(3) = "ABC def gHi"
myTestArr(4) = "abc DEF Ghi"
Sub Initialize
   Dim resultArr as variant
   Dim count as integer
   ' use Comparison Method = 0 (case sensitive, pitch sensitive)
   resultArr = arrayunique(myTestArr,0)	
   for count = lbound(resultArr) To ubound(resultArr)
      Print resultArr(count)
   next count
End Sub 
'Output:
'abc DEF Ghi
'ABC def gHi