I have this formula that allows me to see the amount of the check like this
= IIF([APPayment.ExtRefNbr]<>[APPrintCheckDetailWithAdjdDoc.StubNbr],
'** VOID **',
PadRight(UCASE(LEFT([APPayment.AmountToWords], 1)) + LCASE(SUBSTRING(replace(replace([APPayment.AmountToWords], ' ', ' '), ' Only', ' and Cents') ,1 , LEN([APPayment.AmountToWords]) - 1 )) , 60, '*' ))

But I would like it to be presented in some way as Two Thousand Two Hundred Twenty Three And 00 Cents, what changes do I have to do on the formula?