HTML Code:
Dim QVal As Integer
Dim DVal As Integer
Dim NVal As Integer
Dim PVal As Integer
Dim Quarters As Integer
Dim Dimes As Integer
Dim Nickels As Integer
Dim Pennies As Integer
Dim QTotal As Integer
Dim DTotal As Integer
Dim NTotal As Integer
Dim PTotal As Integer
Dim Total
QVal = 0.25
DVal = 0.1
NVal = 0.05
PVal = 0.01
QBox.Text = Quarters
DBox.Text = Dimes
NBox.Text = Nickels
PBox.Text = Pennies
QTotal = Quarters * QVal
DTotal = Dimes * DVal
NTotal = Nickels * NVal
PTotal = Quarters * PVal
Total = QTotal + DTotal + NTotal + PTotal