Private Sub List1_Click()
Dim i
i = List1.Text
'Agregas lo que se haya seleccionado al texbox
Text1.Text = List1.Text
MsgBox(i)
End Sub

Private Sub Form_Load()
'Agregas las opciones
List1.AddItem "Argentina" 
List1.AddItem "Brasil"
List1.AddItem "Peru"
List1.AddItem "Ecuador"
List1.AddItem "Mexico"
End Sub

Private Sub List1_Click()
'Agregas lo que se haya seleccionado al texbox
Text1.Text = List1.Text
End Sub