Vbscript: Finding Unique Items from space separated string

str="IBM CG CITI IBM CG"

arr=split(str," ")

final=""
 
For each x in arr

If instr(1,final,x)=0 Then

final=final&" "&x

End If
   
Next

msgbox final  'IBM CG CITI