Dim startcurrency as string
Dim convertcurrency as string
Console.writeline("1) Enter your amount")
amount = console.readline
Console.writeline("2} Select the currency for this amount")
startcurrency= console.readline
Console.writeline("3) Select the currency you want to convert this to")
convertcurrency = console.ReadLine()
1 pound to euro = 1.13 euro
1 pound to dollar= 1.34 dollar
1 pound to yen = 151.56 yen
1 dollar to euro = 0.85 euro
1 dollar to pound = 0.75 pound
1 dollar to yen = 113.35 yen
select case cboConvertfrom.Text
case "British - Pounds" :
select case cboConvertTo.Text
result=from/to * Convert.ToInt16(txtAmount.Text)