[Vb6] dati nella list box

[yyzyyz]

diciamo ke questo codice puo' andar bene se i valori doppi inseriti nella inputbox non si ripetono + di una volta.
es.
se metto 1,1 2,3,3 (ok) mentre se metto 1,1,2,1 (no ok)

Dim tmp As String
Private Sub Command1_Click()
tmp = InputBox("nome")
List1.AddItem (tmp)
End Sub

Private Sub Command2_Click()
List2.Clear
For i = 1 To List1.ListCount
List1.ListIndex = i - 1
    If List1.Text <> "" Then
    With List2
    ii = .ListCount
    .ListIndex = ii - 1
    If List1.Text <> List2.Text Then List2.AddItem (List1.Text)
    End With
    End If
Next i
List1.ListIndex = 0
End Sub