[nisgia]

Και αφού ο Τάσος μας έλυσε με περίτεχνο τρόπο το πρόβλημα του τύπου προέλευσης φίλε Παντελή,
προχωράς στη διαγραφή των στοιχείων με τον παρακάτω τρόπο:

Μετά τη πρόταση "End With" στη διαδικασία "Form_Load", προσθέτεις το

Me.MyCombo.RowSource = Me.List1.RowSource

και στο συμβάν AfterUpdate του ComboBox κάνεις το εξής:

Private Sub MyCombo_AfterUpdate()
    With Me.MyCombo
        Me.List1.RemoveItem (.ListIndex)
        .RowSource = Me.List1.RowSource
        .Value = Null
    End With
End Sub

Οι λίστες των δύο πλαισίων (List1 και MyCombo) διατηρούνται συγχρονισμένες
και έτσι είμαστε σίγουροι ότι διαγράφεται το σωστό στοιχείο από τη λίστα του ListBox
και όχι το πρώτο ταίριασμα.