Import Error from txt files

[TrevorSmile]

I regularly import data on into a table from several txt files using VBA and it works fine unless one row contains numerical digits of 18 or more then I get 2.3001002204373E+17 which should read 00230010022043730018 I've formated the table field to text I've also tried formating to numbers but get the same result. It's also the same if I convert the txt files to csv

Can anyone help please?

My VBA code is
Private Sub Command0_Click()
'Modified from WillR - (December 2004)

Const strPath As String = "C:\SmallWorld\" 'Directory Path
Dim strFile As String 'Filename
Dim strFileList() As String 'File Array
Dim intFile As Integer 'File Number

'Loop through the folder & build file list
strFile = Dir(strPath & "*.txt")
While strFile <> ""
'add files to the list
intFile = intFile + 1
ReDim Preserve strFileList(1 To intFile)
strFileList(intFile) = strFile
strFile = Dir()
Wend
'see if any files were found
If intFile = 0 Then
MsgBox "No files found"
Exit Sub
End If
'cycle through the list of files & import to Access
'creating a new table called MyTable
For intFile = 1 To UBound(strFileList)
DoCmd.TransferText acImportDelimi, , _
"Temp Small World Table", strPath & strFileList(intFile)
'Check out the TransferSpreadsheet options in the Access
'Visual Basic Help file for a full description & list of
'optional settings
Next
MsgBox UBound(strFileList) & " Files were Imported"

End Sub