Private Sub ListBox1_Click()
If kit = True Then Exit Sub
For k = 0 To Ncol - 2
If k + 1 = 8 Or k + 1 = 9 Then
Me("TxtB_" & k + 1) = Format(CDbl(Me.ListBox1.Column(k)), "Currency")
Else
Me("TxtB_" & k + 1) = Me.ListBox1.Column(k)
End If
Next k
Label6 = Me.ListBox1.Column(11)
End Sub