Hola no sé si entendí bien, tienes un combobox con los id y cuando hagas click en éste o selecciones el ID, lo arroje al textbox???, si es así, sería muy fácil para tu problema, quiero decir a lo mejor no entendí bien o el problema que entregaste no estaba muy entendible, saludos desde CHILE
Código:
Private Sub Combo1_Click()
If Combo1.Text <> "" Then
Text1.Text = Combo1.Text
End If
End Sub
Nota: en la propiedad Style del combo dejalo como 2 - Dropdown list