Hola...
Es raro por que ami me agrega tal como lo quiero de la siguiente forma:
MyArea.Cells(a_fils, a_cols) = Format(Text1.Text, "0.0")
Lo que puedes hacer es anter ponerle decimal GENERAL a Excel asi:
MyArea.Cells(a_fils, a_cols).NumberFormat = General
MyArea.Cells(a_fils, a_cols) = Format(Text1.Text, "0.0")
Espero que te sirva...
Un saludo de SpeedCAD...

CHILE