Imports System

​

​

' I had to restructure things a bit to run in here.  So any reference to buttons, or text boxes is gone, but this should give you an idea

​

​

​

​

​

Public Module Module1

    Public Sub Main()

        Dim quarters, dimes, nickels, pennies As Integer

        Dim input, remainder As Double

        input = CDbl(90)

        ' this is where the problem is

        quarters = CInt(input / 25)

        Console.WriteLine("Check how these next few lines work")

        Console.WriteLine("input / 25: " + Cstr(input / 25)) ' input is a Double, so when you divide by 25, it'll have a decimal point: 3.6

        Console.WriteLine("CInt(input /25): " + Cstr(CInt(input / 25))) ' Here you take that 3.6 value and turn it into an integer, which VB is happily rounding up, to 4.  That's why it works well for numbers less than 90... it's rounding down.

        Console.WriteLine("Math.Floor(input /25)): " + CStr(Math.Floor(input /25))) ' Here's how you force VB to always round down

        ' OR

        Console.WriteLine("input \ 25: " + CStr(input \ 25)) ' Here's how you get the quotient without the remainder

        Console.WriteLine("input Mod 25: " + CStr(input Mod 25)) ' Here's how you get the remainder without the rest of the quotient

        remainder = input Mod 25 ' Your code never actually does anything with remainder, but you COULD make it useful

        ' Here's the quarters section rewritten

        quarters = input \ 25

        input = input Mod 25

        'txtQuarters.Text = CStr(quarters)

        dimes = CInt(input / 10)

        remainder = input Mod 10

        Console.WriteLine("Dimes")

        Console.WriteLine(CStr(dimes))

        input = input - (10 * dimes)

        nickels = CInt(input / 5)

        remainder = input Mod 5

        Console.WriteLine("Nickels")

        Console.WriteLine(CStr(nickels))

        input = input - (5 * nickels)

        Console.WriteLine("Pennies")

        Console.WriteLine(CStr(input))

    End Sub

End Module