Pasar elemento de listBox a textBox

[rositafresita]

Hola, mi duda es como puedo pasar un elemento de un ListBox a un cuadro de texto cuando doy doble click sobre el elemento de la lista. El codigo que utilizo es el siguiente
Private Sub List1_DblClick()
Dim a As String
a = List1.List(ListIndex)
Text3.Text = a
El problema es que siempre copia solo el primer elemento aunque de doble click en el tercero o el cuarto. Tambien lo intente con ListCount -1 pero así no hace nada.
De antemano gracias a quien me pueda ayudar