如何將重複出現的字串陣列只取一次

A000001　　 220
A000002　　 221
A000003　　 222
A000001　　 220
A000001　　 200
A000008　　 256
A000002　　 221


我要如何做才能將以上的字串資料挑選出來列示於List上，且不會有重複出現的現象。
==================
我用2個list
先全部放進list1..
'List1.Sorted = True
'List2.Sorted = False
Private Sub Command1_Click()
　　Dim i As Integer
　　For i = List1.ListCount - 1 To 0 Step -1
　　　　 If List2.List(0) ＜＞ List1.List(i) Then List2.AddItem List1.List(i), 0
　　Next
　
End Sub
================
如果是我，我會把這些字串當做是 Collection 的 Key 及 Value，因為 Collection 的 Key 是不能重覆的
，所以若加入重覆的字串便會發生錯誤，這時再配合 On Error Resume Next 跳過即可。將字串存入後再依
序取出即可。