Vrite so:
For i = 1 To intYears
'listitems = CStr(decPaymentDue)
dim Aa as String
Aa=i & vbTab & Pmt(decInterestRate / 12, i, intYears, decLoanAmount, 0, 0)) & vbTab & IPmt(decInterestRate / 12, i, intYears, decLoanAmount, 0, 0))
lstPayments.Items.Add(Aa)...