Private Sub cmdPay_Click()
'Tells the customer how much change he gets back
    If Me.txtMoney.Text = "" Then
    MsgBox "Please Pay The Correct Amount Due"
    Else
    Me.lblChange.Caption = txtMoney - Me.lblFinalTotal.Caption
    End If
End Sub