*.csv批量导入时的科学计法如何化解？

先前感谢大佬“西出阳关无故人”的大力帮助，终于解决了XML的导入及字段的抽出。。

本次是变更成CSV导入了，因为料号是12位数字，在CSV文档里默认成“科学算法”显示了，然后同样的导入也变成了这样的显示，如何导入单纯的数字呢？

导入方法同XML一样：

     Dim F
     Dim TextLine
     With Application.FileDialog(3)
         .AllowMultiSelect = True
         .Filters.Clear
         .Filters.Add "csv文件", "*.csv"
         If .Show Then
             For Each F In .SelectedItems
                 Open F For Input As #1
                Do While Not EOF(1)
                    Line Input #1, TextLine
                    If Trim(TextLine) Like "RawLotId*" Then
                        CurrentDb.Execute "insert into Item(RawLotId) values ('" & Replace(Replace(TextLine, "val(RawLotId=)", ""), """", "") & "')"
                    End If
                 Loop
                 Close #1
             Next
         End If
     End With
CSV文件打开显示的是：

如上代码导入的数据显示：

求解：导入不显示科学计法，或者导入即使是科学计法，有什么办法转化成数字显示呢？

求支持！