UnitName = "US Dollars" SubUnitName = "Cents" SubUnitNameAlt = "Dollars" ReDim Place(9) As String Place(2) = " Thousand " Place(3) = " Million " Place(4) = " Billion " Place(5) = " Trillion " ' Convert MyNumber to String MyNumber = Trim(CStr(MyNumber)) ' If MyNumber is...