Here is my code
CODE
Private Sub Command1_Click()
If (Us.Text = True) Then
Can.Text = (1.5 * Us.Text)
Jap.Text = (1.5 * Us.Text)
Mex.Text = (1.5 * Us.Text)
Ind.Text = (1.5 * Us.Text)
Aus.Text = (1.5 * Us.Text)
End If
It convert Us dollars to 5 different currencies. My problem is how do I make it so that it can convert Canadian dollars to Us, Jap, Mex and so on. And I know that the conversion rates are incorrect.