Dim num1 As Double Dim num2 As Double Dim num3 As Double Dim num4 As Double Dim num5 As Double Dim num6 As Double Dim num7 As Double Dim num8 As Double Dim num9 As Double Private Sub Command1_Click() num1 = Text1 num2 = (num1 * 100) num3 = (num2 \ 200) num4 = (num2 Mod 200) num5 = (num4 Mod 25) Label1.Caption = num3 Label2.Caption = num4 Label3.Caption = num5 End Sub

btw my error is that num3 too label1 displays how many toonies and num4 to label2 is supposed to display how many loonies but it doesnt and num5 to label3 is supposed to display how many quarters and so on thanks!