ListBox

I have a list box and I want to be able to change the text in for the selected item to be what is entered in a text box...

How the heck do I do it?

Thanks!

Code:

---

Private Sub List1_Click()
Dim sel As Integer
sel = List1.ListIndex
List1.List(sel) = text1.text
End Sub

---

Private Sub Command1_Click()

Me.List1.List(Me.List1.ListIndex) = Me.Text1.Text

End Sub

thank you, Thank You, THANK YOU!!!