'Declaring the variables:
  Dim sngChange As Single
  Dim intRChange As Integer
  Dim intThousand As Integer
  Dim intHundred As Integer
  Dim intFifty As Integer
  Dim intTwenty As Integer
  Dim intTen As Integer
  Dim intFive As Integer
  Dim intTwo As Integer
  Dim intOne As Integer
  Dim intQuarter As Integer
  Dim intDime As Integer
  Dim intNickel As Integer
  Dim intCents As Integer

  Private Sub btnCoins_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCoins.Click
      sngChange = Val(Me.txtChange.Text)
      'Introduce the user input control^

      'Enter the formulas for calculating the numbers of coins for each

      intThousand = sngChange \ 1000
      Me.lblThousand.Text = intThousand

      intHundred = (sngChange - 1000 * intThousand) \ 100
      Me.lblHundred.Text = intHundred

      intFifty = (sngChange - 1000 * intThousand - 100 * intHundred) \ 50
      Me.lblFifty.Text = intFifty

      intTwenty = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty) \ 20
      Me.lblTwenty.Text = intTwenty

      intTen = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty - 20 * intTwenty) \ 10
      Me.lblTen.Text = intTen

      intFive = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty - 20 * intTwenty - 10 * intTen) \ 5
      Me.lblFive.Text = intFive

      intTwo = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty - 20 * intTwenty - 10 * intTen - 5 * intFive) \ 2
      Me.lblTwo.Text = intTwo

      intOne = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty - 20 * intTwenty - 10 * intTen - 5 * intFive - 2 * intTwo) \ 1
      Me.lblOne.Text = intOne

      'intRChange is the converter of d.cc format into cc
      intRChange = (sngChange - 1000 * intThousand - 100 * intHundred - 50 * intFifty - 20 * intTwenty - 10 * intTen - 5 * intFive - 2 * intTwo - 1 * intOne) * 100

      intQuarter = intRChange \ 25
      Me.lblQuarter.Text = intQuarter

      intDime = (intRChange - 25 * intQuarter) \ 10
      Me.lblDime.Text = intDime

      intNickel = (intRChange - 25 * intQuarter - 10 * intDime) \ 5
      Me.lblNickel.Text = intNickel

      intCents = (intRChange - 25 * intQuarter - 10 * intDime - 5 * intNickel) \ 1
      Me.lblCents.Text = intCents
  End Sub

  Private Sub txtChange_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtChange.TextChanged
      Me.lblCents.Text = ""
      Me.lblNickel.Text = ""
      Me.lblDime.Text = ""
      Me.lblQuarter.Text = ""
      Me.lblOne.Text = ""
      Me.lblTwo.Text = ""
      Me.lblFive.Text = ""
      Me.lblTen.Text = ""
      Me.lblTwenty.Text = ""
      Me.lblFifty.Text = ""
      Me.lblHundred.Text = ""
      Me.lblThousand.Text = ""
      'If the value entered has been changed, all the outcomes dissappear
  End Sub

  Private Sub mnuExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuExit.Click
      End 'Quits the program
  End Sub
End Class


-------
Remember, remember the 9th of November. Never Refer.
DeviantArt Myspace

it used to be homework, but since i already handed it in (weeks ago) and still havent figured it out.. i was just wondering, thanks though, i checked and i didnt see any rounding error places...

-------
Remember, remember the 9th of November. Never Refer.
DeviantArt Myspace