Denegar el ingreso del mismo item del listbox1 al listbox2

[Hola 

Te paso la macro

'valora la respuesta manito arriba para finalizar

Private Sub CommandButton1_Click()
'
'VALORA LA RESPUESTA MANITO ARRIBA PARA FINALIZAR
'
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) Then
        For j = 0 To ListBox2.ListCount - 1
            If ListBox1.List(i, 0) = ListBox2.List(j, 0) Then ' compara la primera col de los listbox
                MsgBox "El dato ya existe"
                Exit Sub
            End If
        Next j
    ListBox2.AddItem ListBox1.List(i, 0) ' si no hay duplicado pasa al listbox2
Next i
End Sub