VB6からExcel操作

VBアプリケーションで作成したデータをエクセルの指定したセルに入力する作業で行き詰まっています。

変数iには0～0.000999までの値が入ります。

これを仮にExcelのA1セルに入力する時

ws.cells(1.1).value＝i

として記述しているのですが、行き詰まっているのがiが0.000を含む時0.000にのみ下線を引くという記述ができず困っています。
Excel側ではA1セルの書式設定で文字列に設定していますがこの後どうすればいいのか教えてください。
よろしくお願いします。

No.1 ベストアンサー 回答者： よろずやkinchan 回答日時： 2018/09/03 23:06

ws.Cells(1, 1).NumberFormat = "@"

ws.Cells(1, 1).Value = CStr(i)