listbox in textfelder übertragen

kann mir jemand sagen was hierdran falsch ist?
Ich möchte daten aus einer Listbox in textfelder einlesen,
beim ersten textfeld funktioniert das auch noch aber beim zweiten macht er mir nen fehler.
Code sieht so aus:

Private Sub ListBox1_Click()
TextBox1.Text = ListBox1.List(ListBox1.ListIndex, 0)
TextBox2.Text = ListBox1.List(ListBox2.ListIndex, 1) <--Fehler
TextBox3.Text = ListBox1.List(ListBox3.ListIndex, 2)
TextBox4.Text = ListBox1.List(ListBox4.ListIndex, 3)
End Sub

Private Sub UserForm_Initialize()
With ListBox1
.RowSource = "Mitarbeiter_Stamm!A2:D" & Sheets("Mitarbeiter_Stamm").Range("D2").CurrentRegion.Rows.Count
.ColumnCount = 4
.ColumnWidths = "75;75;0;0"
End With
End Sub

Kann mir jemand sagen was ich falsch mache?
gruss Andi