jajajajjaj
Es dificil adivinar lo que se pretende hacer, pero se hace lo que se puede...
Combo1.AddItem Text1.Text
Es para añadir al combo lo que tenga el text1, que es lo que creí que querias.
A codigo lo pudes hacer asi para llenar la lista:
Private Sub Form_Load()
Combo1.AddItem "Hola"
Combo1.AddItem "a"
Combo1.AddItem "todos"
End Sub
Y para sacar el contenido lo puedes hacer asi:
Private Sub combo1_click()
Text1.Text = Combo1.List(Combo1.ListIndex)
End Sub
Un saludo.