Piazza fu un form tre combo, una per ogni tipo.
Piazza un Bottone (Command1).

Incolla nel codice queste righe :

codice:
Option Explicit
Private nChange As Integer
Private Sub Combo1_Change()
    nChange = 1
End Sub
Private Sub Combo2_Change()
    nChange = 2
End Sub
Private Sub Combo3_Change()
    nChange = 3
End Sub

Private Sub Command1_Click()
    Call Aggiungi
End Sub
Private Sub Aggiungi()
    Dim sItem As String
    Select Case nChange
        Case 1: sItem = Combo1.Text
        Case 2: sItem = Combo2.Text
        Case 3: sItem = Combo3.Text
        Case 0: sItem = ""
    End Select
    
    If sItem <> "" Then
        Combo1.AddItem sItem
        Combo2.AddItem sItem
        Combo3.AddItem sItem
    End If
End Sub
L'ho provato e funziona.

Ciao,