Private Sub Listbox1_click()
With ListBox1
TextBox2 = .List(.ListIndex, 0)
TextBox3 = .List(.ListIndex, 1)
TextBox4 = .List(.ListIndex, 2)
TextBox5 = .List(.ListIndex, 3)
TextBox6 = .List(.ListIndex, 4)
TextBox7 = .List(.ListIndex, 5)
TextBox8 = .List(.ListIndex, 7)
End With
End Sub