Private Sub Command1_Click()

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

End Sub