this Code is Not giving right output

strSourceBins="20C:23B: 26G:67G:26G"
ArrayBins=Split(strSourceBins,":")
For m= 0 To UBOUND(ArrayBins)
    If Instr(strSourceBins,ArrayBins(m))>0 Then
    NewSourceBins=Replace(strSourceBins,ArrayBins(m),"")
    StrRemovedbin= StrRemovedbin&":"&ArrayBins(m)
    End If
Next
FinalSourceBins=FinalSourceBins&":"&StrRemovedbin


We need FinalSourceBins="20C:23B:26G:67G"

26G Should be removed Because its Duplicate. how can I achieve it