Imports System, Microsoft.VisualBasic 

Public Module Module1

    Public Sub Main()

        Dim quarters, dimes, nickels, pennies As Integer 

        Dim result As Single 

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

        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()

        Console.WriteLine(addCoins(2,1,1,3))

        Console.WriteLine("The total of entered coins is " & FormatCurrency(result))

    End Sub

    Private Function addCoins(ByVal quarters As Integer, ByVal dimes As Integer, Byval nickels As Integer, ByVal pennies As Integer) As Single 

        Dim total As Single

        quarters = (quarters * 0.25) 

        dimes = (dimes * 0.10) 

        nickels = (nickels * 0.05) 

        pennies = (pennies * 0.01)

        total = (quarters + dimes + nickels + pennies)

        Return total

    End Function 

End Module