Select the record for display

Hello masters,

I have a report in listbox shows a list of entries made.
I need that one to be edited and save back.
I created pretty report in listbox. And
when I click it I need it to display in a Textbox so that I can edit
and save back.

This is the code i use to load in textbox.
Please help me.

Private Sub Results_Click()
Dim c As Range
    If Me.Results.ListIndex = -1 Then    'not selected
        MsgBox " No selection made"
    ElseIf Me.Results.ListIndex >= 1 Then    'User has selected
        r = Me.Results.ListIndex

 Set c = Cells.FindNext(c)
 
        With Me
            .Box1.Value = Results.List(r, 0)
            .Box2.Value = Results.List(r, 1)
            .Box3.Value = Results.List(r, 2)
            .Box4.Value = Results.List(r, 3)
                  
        End With
    End If
End Sub

Please help me.
Regards, Charles P