sum = Format$(sum, "#.##E+")
だと思う