Imports System

Public Module Module1

    Public Sub Main()

        Console.WriteLine("Hello World")

        Dim Value As Decimal

        Dim formattedvalue As String

        Dim CurrencySymbol As Char

​

​

        Console.WriteLine("Please enter currency symbol")

        CurrencySymbol = Console.ReadLine

        Console.WriteLine("Please enter value")

        Value = Console.ReadLine

​

        formattedvalue = Format(Value, "###,###,###,###.00")

        Console.WriteLine(CurrencySymbol & formattedvalue)

        Console.ReadLine()

    End Sub

End Module