Private Sub TextBox1_Change()
With Usf_Labo
If .ListBox2.ListIndex = -1 Then Exit Sub
If .TextBox1.Text = "" Then
.Label8 = Format(CDbl(.Label8.Tag), "$ ###.00")
.Label15.Caption = ""
.Label8.BackColor = 14737632
Else
.Label8.Caption = Format(CDbl(.Label8.Tag) * CLng(.TextBox1), "$ ###,###.00")
.Label8.BackColor = &H80FF80
End If
End With
End Sub