'Calculate Expense Percentages
    lblRentPerc.Caption = Fix(Val(txtRent.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblPayrollPerc.Caption = Fix(Val(txtPayroll.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblUtilPerc.Caption = Fix(Val(txtUtil.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblSuppPerc.Caption = Fix(Val(txtSupp.Text) / _
    Val(lblTotalExp.Caption) * 100)
    lblOtherPerc.Caption = Fix(Val(txtOther.Text) / _
    Val(lblTotalExp.Caption) * 100)