Vb Net Determine Amortization