Excel vba for auto converting of currency

[armanskie]

I am completely new with Excel VBA and I have the query how the code: TextBox1 (50US$) If I put the value at TextBox2 (Rupee) result will go TextBox3 (Peso) automatically and vise versa (if I put a value at TextBox3 (Peso) result also at TextBox2 (Rupee)
The bases will be from TextBox1 (USD)
- - - - - - - - - - - - - - - - -
Private Sub Sum_Click()
Textbox3.Text = Val(Textbox2.Text) * Val(TextBox1.Text)
Textbox2.Text = Val(Textbox3.Text) / Val(TextBox1.Text)
End Sub

- - - - - - - - - - -

Thanks,

 

[armanskie]

Guys, appreciated your help to correct my codes