Verschiedene Werte aus 1 Listenfeld in Textfelder

In einer Userform wird eine Listbox1 mit Daten gefüllt.
Nun möchte ich gern die Daten in eine Textbox2 und einen anderen Datensatz in eine andere Textbox3 übernehmen.

Für die erste Textbox klappt das so:

Private Sub ListBox1_enter()
Sheets("Frei Ports").Select
Dim LoLetzte As Long
LoLetzte = 65536
If Range("A65536") = "" Then LoLetzte = Range("A65536").End(xlUp).Row
ListBox1.RowSource = "A1:A" & LoLetzte

End Sub
Private Sub ListBox1_click()
TextBox2.Value = ListBox1.Text
TextBox3.Value = ListBox1.Text ???
End Sub

Die zweite wird mit den gleichen Datensatz übernommen.

Hat jemand eine Lösung

Dank im Voraus
Gruß Peter