Numbers to word text currency in Crystal Report

numbervar nAmount := 1000.99;
numberVar nRemain:= Remainder(nAmount,1);
numberVar IntAmount := Truncate(nAmount);
stringVar sWordAmount:= ToWords(Truncate(nAmount),0);

if nRemain > 0 and IntAmount > 0 then
    sWordAmount:= sWordAmount +" Baht And "+ ToWords(round(nRemain,2)*100,0)+" Satang"
else if nRemain > 0 and IntAmount = 0 then
    sWordAmount := ToWords(round(nRemain,2)*100,0)+" Satang"    
Else
    sWordAmount := sWordAmount + " Baht Only";

//Uppercase(sWordAmount)
propercase(sWordAmount)

numbervar nAmount := 0.54;
numbervar nRemain:= Remainder(nAmount,1);
numbervar IntAmount := Truncate(nAmount);
stringvar sWordAmount:= ToWords(Truncate(nAmount),0);

if nRemain > 0 and IntAmount >= 0 then
    sWordAmount:= sWordAmount +" Baht And "+ ToWords(round(nRemain,2)*100,0)+" Satang"
Else
    sWordAmount := sWordAmount + " Baht Only";

//Uppercase(sWordAmount)
propercase(sWordAmount)