Private Sub cmdPay_Click()
    If Me.txtMoney.Text = "" Then
    MsgBox "Please Enter The Amount Of Money You Have"
    Else
    Me.lblchange.Caption = txtMoney - Me.lblFinalTotal.Caption
    End If
End Sub