Dim intCoinsEnteredDD As Integer
        Dim intQuartersDD As Integer
        Dim intDimesDD As Integer
        Dim intNicklesDD As Integer
        Dim intPenniesDD As Integer
	Dim intTemp as Integer

        intCoinsEnteredDD = Val(txtCentsDD.Text)

        intQuartersDD = intCoinsEnteredDD / 25
	intTemp = intCoinsEnteredDD Mod 25

        intDimesDD = intTemp / 10
	intTemp = intTemp Mod 10

        intNicklesDD = intTemp / 5
	intTemp = intTemp Mod 5

        intPenniesDD = intTemp

        Me.lblQuartersAnsDD.Text = intQuartersDD
        Me.lblDimesAnsDD.Text = intDimesDD
        Me.lblNicklesAnsDD.Text = intNicklesDD
        Me.lblPenniesAnsDD.Text = intPenniesDD