Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3 = Replace(TextBox3, ".", ",")
If Not IsNumeric(TextBox3) Then TextBox3 = "": Exit Sub
For k = 5 To 18
If CDbl(TextBox3) < Cells(1, k) Then Exit For
If Cells(ComboBox2.ListIndex + 1, k) <> "" Then tx = k
Next
TextBox4 = Format(Cells(ComboBox2.ListIndex + 1, tx), "0.00")
TextBox5 = Format(TextBox4 * CDbl(tx), "0.00")
End Sub