Imports System, Microsoft.VisualBasic

'Gavin Rowe-Morris  10-25-21'               

Public Module Module1

    Public Sub Main()

        Dim Quarters As Integer                                                         'Step 1 Declaring Variables'

        Dim Dimes As Integer

        Dim Nickels As Integer

        Dim Pennies As Integer

        Dim total As Single

        Console.WriteLine("Please enter the number of Quarters:")                       'Step 2 Get User Input'

        Quarters = Console.ReadLine()

        Console.WriteLine("Please enter the number of Dimes:")

        Dimes = Console.ReadLine()

        Console.WriteLine("please enter the number of Nickels:")

        Nickels = Console.ReadLine()

        Console.WriteLine("Please enter the number of Pennies:")

        Pennies = Console.ReadLine()

        total = (Quarters * .25) + (Dimes * .10) + (Nickels * .05) + (Pennies * .01)    'Step 3 Calculations'

        Console.WriteLine("The total is " & FormatCurrency(total))                      'Step 4 Output'

    End Sub

End Module