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