Select, Edit, Add & Delete items in a list box

Hi All!

I have a listbox with three columns, I then have 2 text box and 1 combo box underneath.
and then three commands, Edit, Add and Delete.
I've worked out the code to make the textbox and combobox fill when i click on the name in the list box but I cannot get them to edit.

I also want to type an entry into the text boxes to add to the list

and delete a name in the list....

this is my code so far!!

Private Sub ListBox1_Click()
    With Me
        .txtUSERID.Value = .ListBox1.List(.ListBox1.ListIndex, 0)
        .txtNAME.Value = .ListBox1.List(.ListBox1.ListIndex, 1)
        .cboPERMISSION.Value = .ListBox1.List(.ListBox1.ListIndex, 2)
        End With
        
End Sub


Private Sub comEDIT_click()
Dim rCell As Range
Dim rCell1 As Range
Dim rCell2 As Range

With ListBox1
Set rCell = Range(.RowSource).Resize(1).Offset(.ListIndex, 0)
rCell.Value = txtUSERID.Value

Set rCell1 = Range(.RowSource).Resize(1).Offset(.ListIndex, 1)
rCell1.Value = txtNAME.Value

Set rCell2 = Range(.RowSource).Resize(1).Offset(.ListIndex, 2)
rCell2.Value = cboPERMISSION.Value
End With

End Sub

thanks!!!!!!