Imports System

​

Public Module Module1

​

    Public Sub Main()

        'Declare a Decimal array

        Dim currencyValues() As Decimal = {}

        'The variable to store the user input

        Dim input As String = String.Empty

        'The variable to store the converted input

        Dim currency As Decimal = 0

        Do

            'Prompt for the user input

            Console.WriteLine("Enter in a currency value or enter a blank value to stop adding currency values.")

            'Get the user input

            input = Console.ReadLine()

            'Check if the user input can be converted to a Decimal

            If Decimal.TryParse(input, currency) Then

                'If the input can be converted then add the value to the array

                ReDim Preserve currencyValues(currencyValues.Length)

                currencyValues(currencyValues.Length - 1) = currency

            ElseIf Not String.IsNullOrWhiteSpace(input)

                'If the input can NOT be converted then inform the user

                Console.WriteLine("Your input could not be converted to a decimal.")

            End If

        Loop Until String.IsNullOrWhiteSpace(input) 'Loop until the user enters in a blank line

​

        'Print all of the values and use .ToString("c") to display the currency string of the decimal

        For Each value As Decimal In currencyValues

            Console.WriteLine(value.ToString("c"))

        Next

    End Sub

End Module

​