VB Code:
Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click
If (txtCurrency.Text = "Yen") Then 'If the user types in Yen it will multiply the users value by 120
lbloutput.Text = _
Val(txtValue.Text) * 120
ElseIf (txtCurrency.Text = "Euros") Then 'If the user types in Euros it will Multiply the users value by 1.02
lbloutput.Text = _
Val(txtValue.Text) * 1.02
ElseIf (txtCurrency.Text = "Pesos") Then 'If the user types in Pesos it will Multiply the Users Value by 10
lbloutput.Text = _
Val(txtValue.Text) * 10
End If
End Sub