Excel VBA 怎么实现保留固定长度的数值？？

Excel VBA 怎么实现保留固定长度的数值？？我想保留7位长度数字（包括小数点），比如1418保留为1418.00,1.5保留为1.50000,0.32000保留为0.32000。不知道怎么实现，请各位指教，十分感谢。我用了left函数，1.5保留为1.50000,0.32000保留为0.32000，但是1418变成了1418000了，显然不对。麻烦各位不吝指教，感谢。
Sub aa()
For i = 1 To 31
Cells(i, 11) = Left(Cells(i, 1) & "000000", 7)
Next i
End Sub