excel与cad

我用vba从excel文件中读出一个小于1但大于0的数字，作为文字绘制在cad中小数点前面的0绘不出来，请高手指点
程序如下：
Public Sub exceltocad2()
Dim excelApp As Excel.Application
’指定绘图数据位置
Set excelApp = CreateObject("Excel.Application")
excelApp.Workbooks.Open "f:\\ceshi.xls"
Set excelsheet = excelApp.ActiveWorkbook.Sheets("绘图数据")

’输入绘图数据

Dim Textstr As String
Dim startPoint(0 To 2) As Double
Dim Textobj As AcadText


startPoint(0) = 100
startPoint(1) = 100
startPoint(2) = 0

Textstr = excelsheet.Cells(1, 1)
Set Textobj = ThisDrawing.ModelSpace.AddText(Textstr, startPoint, 2.5)

ZoomExtents
excelApp.Quit
end sub