Get all current itens of a listbox and after it how to add a item name to a textbox??

I'm using a code to get random things to a listbox...

But I wanna know, when clicked at item of a listbox, how to show the name of the item at a textbox?

I'm using this code but it works only for the first item:

Private Sub List1_Click()
If List1.Selected(1) Then
Text5.Text = List1.List(1)
End If
End Sub