Private Sub TextBox4_Change()
If ListBox2.ListCount = 1 Then _
TextBox6 = 1000 * Val(Replace(TextBox4, ",", "."))
End Sub
Private Sub ListBox2_Click()
Dim i&
i = Application.Match(ListBox2, Application.Index(t3, , 2), 0)
TextBox1 = ListBox2
TextBox2 = Round(t3(i, 7)) 'VAL7
TextBox3 = t3(i, 20) 'VAL20
TextBox6 = t3(i, 15) 'VAL15
TextBox4 = t3(i, 21) 'VAL21
TextBox5 = t3(i, 9) 'VAL9
TextBox7 = t3(i, 16) 'VAL16
TextBox8 = t3(i, 17) 'VAL17
End Sub