ListBoxeintrag in TextBox

Private Sub ListBox1_Click()
Dim lng As Long
lng = frmDatenanzeige.ListBox1.Column(7)
With frmDatenanzeige
.TextBox2.Value = .ListBox1.Column(0, .ListBox1.ListIndex) + 7
.TextBox3.Value = .ListBox1.Column(0, .ListBox1.ListIndex)
.TextBox4.Value = .ListBox1.Column(1, .ListBox1.ListIndex)
.TextBox5.Value = .ListBox1.Column(2, .ListBox1.ListIndex)
.TextBox6.Value = .ListBox1.Column(3, .ListBox1.ListIndex)
.TextBox7.Value = .ListBox1.Column(4, .ListBox1.ListIndex)
.TextBox8.Value = .ListBox1.Column(5, .ListBox1.ListIndex)
End With
End Sub