Toujours un problème de combobox, au secours

Bjr à tous;
Je n'ai toujours pas réussi à régler mon problème de combobox. La partie de
la macro que j'ai ci-dessous affiche mes choix dans les listes déroulantes
de mon masque de saisie mais le texte sélectionné n'apparaît pas dans mon
document modèle malgré les signets. Comment faut-il agir pour que le click
sur l'un des choix entraîne, l'écriture dans mon documents dudit choix. J'ai
reçu des réponses à ma demande mais sans la soluce. Aidez moi SVP, j'ai
essayé beaucoup de chose sans succès.
Merci d'avance à celui qui m'aidera à trouver la soluce.

Voici mon code pour les combobox, les lettres remplacent mes sélections.
Les combobox se trouvent à différents endroits dans un masque de saisie (pas
dans l'ordre et mélangés avec des textbox qui fonctionnent bien);

Private Sub UserForm_Initialize()
ComboBoxAb.ColumnCount = 1
'Load data into ComboBox
ComboBoxAb.List() = Array("A", "B")
ComboBoxCd.ColumnCount = 1
'Load data into ComboBox
ComboBoxCd.List() = Array("C", "D", "E", "F")
ComboBoxGh.ColumnCount = 1
'Load data into ComboBox
ComboBoxGh.List() = Array("G", "H")
End Sub

Private Sub ComboBoxAb_Change()
ComboBoxAb.AddItem "ComboBoxAb" & (i + 1)
End Sub

Private Sub ComboBoxCd_Change()
ComboBoxCd.AddItem "ComboBoxCd" & (i + 1)
End Sub

Private Sub ComboBoxGh_Change()
ComboBoxGh.AddItem "ComboBoxGh" & (i + 1)
End Sub

Private Sub CmdClose_Click()
Unload Me
End Sub