Excel VBA - AfterUpdate com condicional

[Luciana Goes]

Olá!
Preciso de uma ajuda que, acredito eu ser simples, mas não estou conseguindo chegar no resultado.

São 4 textbox (1, 2, 3, 4)

 

Se o valor da textbox1 for < 0: multiplica a textbox2 pela textbox1

Se o valor da textbox1 for >=0: multiplica a textbox 2 pela texbox3

 

O resultado dessa conta ficará na textbox4.

 

Na planilha anexa fiz a conta com fórmula, mas preciso que o cálculo seja pelo form.

 

Alguém conseguiria me ajudar?

Pasta1.zip

[AfonsoMira]

Boas @Luciana Goes,

 

Substitua todo o seu código por esse: 

Private Sub UserForm_Initialize()
    TextBox1.Text = Plan1.Range("b3").Value
    TextBox2.Text = Plan1.Range("c3").Value
    TextBox3.Text = Plan1.Range("d3").Value
    TextBox1_AfterUpdate
End Sub


Private Sub TextBox1_AfterUpdate()

valor2 = Right(TextBox2.Value, Len(TextBox2.Value) - 3)

If TextBox1.Value < 0 Then
    TextBox4.Value = valor2 * CDbl(TextBox1.Value)
ElseIf TextBox1.Value >= 0 Then
    TextBox4.Value = valor2 * TextBox3.Value
End If

End Sub

Private Sub TextBox2_Change()
    TextBox2.Value = VBA.Format(TextBox2.Value, "R$ ###,##0.00")
    TextBox2.TabStop = False
End Sub

 

Espero ter ajudado.

[Luciana Goes]

@AfonsoMira Deu certo!

Muitíssimo obrigada!!!