Prueba algo similar a esto :

Private Sub Combo1_Click()
Text1.Text = Combo1.Text
End Sub