Function creditBalance