Private Sub TextBox4_Change()
'Me.TextBox4 = Replace(Me.TextBox4, ".", Application.DecimalSeparator)
'Me.TextBox4 = Replace(Me.TextBox4, ",", Application.DecimalSeparator)
If Me.TextBox3 = "" Then Me.TextBox3 = 0
If Me.TextBox4 = "" Then Me.TextBox4 = 0
Me.TextBox5 = CLng(Me.TextBox3) * CDbl(Me.TextBox4)
End Sub