Public Class clsFormatCurrency
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose:  returns string formatted as currency
        '
        ' Syntax: 	FormatCurrency (Expression As Object, _
        ' NumDigitsAfterDecimal As Integer, _
        ' IncludeLeadingDigit As TriState, _
        ' UseParensForNegativeNumbers As TriState, _
        ' GroupDigits As TriState _
        ' ) As String
        '
        ' Parameter1: Expression - Required - Expression to be formatted
        '
        ' Parameter2: NumDigitsAfterDecimal - Optional - Numeric value indicating how many places 
        ' are displayed to the right of the decimal. Default value is –1, which indicates that 
        ' the computer's regional settings are used.
        '
        ' Parameter3: IncludeLeadingDigit - Optional. TriState enumeration that indicates whether 
        ' or not a leading zero is displayed for fractional values. 
        '
        ' Parameter4: UseParensForNegativeNumbers - Optional. TriState enumeration that indicates whether 
        ' or not to place negative values within parentheses. 
        '
        ' Parameter5: GroupDigits - Optional. TriState enumeration that indicates whether or not 
        ' numbers are grouped using the group delimiter specified in the computer's regional settings. 
        '
        ' Result: string - returns string formatted as currency
        '
        ' *********************************************************
        '
        ' Quick Example:   Dim dblNumber As Double = -5432.43
        ' Returns "($5,432.43)".
        ' Console.WriteLine(FormatCurrency(dblNumber, , , TriState.True, TriState.True))
        '
        ' 
        '****************************************************************************************
 
        Console.WriteLine("Example #1: 	FormatCurrency (Expression As Object," & _
        " NumDigitsAfterDecimal As Integer," & _
        " IncludeLeadingDigit As TriState," & _
         " UseParensForNegativeNumbers As TriState," & _
        " GroupDigits As TriState " & _
         " ) As String ")
        Dim dblNumber As Double = -5432.43
 
        ' Returns "($5,432.43)".
        Console.WriteLine(FormatCurrency(dblNumber, , , TriState.True, TriState.True))
 
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
 
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsFormatCurrency As New clsFormatCurrency
        myclsFormatCurrency.Main()
 
 
 
    End Sub
 
End Module