Tva

Private Sub OptionButton1_Click()
TextBox2 = Round(Val(TextBox1) / (1 + "0.07"), 2)
TextBox3 = Round(Val(TextBox1) - Val(TextBox2), 2)
End Sub

Private Sub OptionButton2_Click()
TextBox2 = Round(Val(TextBox1) / (1 + "0.196"), 2)
TextBox3 = Round(Val(TextBox1) - Val(TextBox2), 2)
End Sub

TextBox2 = Round(Val(TextBox1) / (1 + "0.07"), 2)

Private Sub OptionButton1_Click()
    TextBox1_Change
End Sub

Private Sub OptionButton2_Click()
    TextBox1_Change
End Sub

Private Sub TextBox1_Change()
If Not OptionButton1 And Not OptionButton2 Then OptionButton1 = True
If TextBox1 = "" Then
    TextBox2 = ""
    TextBox3 = ""
Else
    TextBox2 = CDbl(TextBox1) / IIf(OptionButton1, 1.07, 1.196)
    TextBox2 = Format(TextBox2, "0.00")
    TextBox3 = CDbl(TextBox1) - CDbl(TextBox2)
    TextBox3 = Format(TextBox3, "0.00")
End If
End Sub