Imports System

Public Module Module1

    Public Sub Main()

        Dim currentValue As Single

        Dim numQuarters As Integer = 0

​

        Console.WriteLine("Please enter the amount:")

        currentValue = Console.ReadLine()

​

        Do

            If currentValue < 7 Then

                numQuarters += 1

                currentValue += 0.25

            Else

            End If

        Loop while currentValue < 7

            Console.WriteLine("The number of quarters you need are " & numQuarters)

    End Sub

End Module