Listbox daten auslesen, mutierenund zuückschreiben

Ich komme mit folgendem Problem nicht weiter

Listbox 4 Spalten
- werte aus Tabelle in Listebox einlesen " bis hier .-))
- Auswahl in Textbox 1 bis 4 auslesen " ab hier ¦-{
- Auswahl in Textbox mutieren und zurückschreiben

Mein Versuch

Private Sub UserForm_Initialize()
Dim InI As Long
Dim InZeile As Integer
Dim lt As Object

Set ap = Application
Set she = Sheets
Set lt = ListMut

'ap.ScreenUpdating = False

lt.Clear

she(1).Select

With she(1)

With ListMut
.ColumnCount = 4
.ColumnHeads = True
.ColumnWidths = "2cm;2cm;2cm;2cm"
.ListStyle = fmListStyleOption
.ListIndex = -1
End With

For InI = 2 To .UsedRange.Rows.Count
If Cells(InI, 1) <> "" Then
ListMut.AddItem .Range("A" & InI) 'Name
ListMut.List(InZeile, 1) = .Range("B" & InI) 'Vorname
ListMut.List(InZeile, 2) = .Range("c" & InI) 'Strasse
ListMut.List(InZeile, 3) = .Range("d" & InI) 'Ort

InZeile = InZeile + 1

End If
Next InI
End With
End Sub

** ab hier beginnt mein Probelm
1. Liste nur in textbox 1 aus in 2-4 nicht.

Private Sub ListMut_Change()
Dim rng As Range
' Range mit mehren Spalten ??
Set rng = Columns(1).Find(ListMut.Value, lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
txtEdit.Text = rng.Text
txtEdit.Tag = rng.Address
txtEdit1.Text = rng.Text
txtEdit1.Tag = rng.Address
txtEdit2.Text = rng.Text
txtEdit2.Tag = rng.Address
txtEdit3.Text = rng.Text
txtEdit3.Tag = rng.Address
End If
End Sub

Private Sub cmdCancel_Click()
Unload Me
End Sub

Private Sub cmdOK_Click()
Range(txtEdit.Tag).Value = txtEdit.Text
Range(txtEdit1.Tag).Value = txtEdit1.Text
Range(txtEdit2.Tag).Value = txtEdit2.Text
Range(txtEdit3.Tag).Value = txtEdit3.Text

End Sub

Besten Dank für Eure Hilfe

Marco