lblTotalSales.Text = Val(txtCakes.Text) + Val(txtMuffins.Text) + Val(txtCookies.Text) + Val(txtPies.Text)
    lblCookiesPerc.Text = Val(txtCookies.Text) / Val(lblTotalSales.Text) * 100
    lblCakesPerc.Text = Val(txtCakes.Text) / Val(lblTotalSales.Text) * 100
    lblPiesPerc.Text = Val(txtPies.Text) / Val(lblTotalSales.Text) * 100
    lblMuffinsPerc.Text = Val(txtMuffins.Text) / Val(lblTotalSales.Text) * 100