VbNet 1----Programacion en Consola----Convertir soles a otras monedas

Convertir soles a euros, yenes, dolares

Module Module1
    Sub Main()
        Dim x, a, b, c As Double
        Console.Write("ingrese monto en soles S/.:")
        x = Console.ReadLine
        a = x / 2.9
        b = x / 4.2
        c = x / 0.028
        Console.WriteLine("el monto en dolares es :" & a)
        Console.WriteLine("el monto en euros es :" & b)
        Console.Write("el monto en yenes es :" & c)
        Console.Read()
    End Sub
End Module