OptionExplicitFunctionSpellNumber(ByValNumber)DimPesos,Cents,TDimDec,CntReDimPosition(9)AsStringPosition(2)=" Thousand "Position(3)=" Million "Position(4)=" Billion "Position(5)=" Trillion "Number=Trim(Str(Number))Dec=InStr(Number,".")IfDec>0ThenCents=GetTens2(Left(Mid(Number,Dec+1)&_"00...