List Value not wanted

I have the following code what is wrong.

'Ensure the ListBoxes Sorted property is set to true.
Dim ctl As Control

For Each ctl In RepRecord.Controls
If TypeOf ctl Is Label Then
List1.AddItem ctl.Caption
End If
Next
For I = 0 To List1.ListCount - 1
' List1.List(I) = CStr(I + 0) & ". " & List1.List(I)
frmFieldattributes.Text1.Text = ". " & List1.List(List1.ListIndex + 1)

Next

End Sub

I have this a list of all Lables in form RepRecord in a listbox named list1. when I click on any one of them then Click to go to frmFieldattributes where the end user has the ability to change it's name what I want to show up for example say
"Clients Address" but instead I get "List ValueClients Address"
how do I get that dam List Value out of there.

Help

VB Code:

List1.List(I)

Woka