In that case something like this should do the job. This is a procedure
that converts the input file (assuming that we've got its structure
right) into an ordinary comma-separated file that Access will be able to
import in the usual way with DoCmd.TransferText.

The code uses the VBScript regular expression object, which is available
on most modern Windows computers. Using it saves writing a lot of
tedious procedural code to separate out the various fields by reading
the line character by character.

Sub Vanessa(InFileSpec As String, OutFileSpec As String)
 Dim lngIN As Long
 Dim lngOUT As Long
 Dim strLine As String 'line read from file
 Dim strBuf As String 'line to output to file
 Dim oRE As Object 'VBScript_RegExp_55.RegExp
 
 lngIN = FreeFile()
 Open InFileSpec For Input As lngIN
 lngOUT = FreeFile()
 Open OutFileSpec For Output As lngOUT
 
 Set oRE = CreateObject("VBscript.Regexp")
 oRE.Global = False
 oRE.IgnoreCase = True
 oRE.Multiline = False
 oRE.Pattern = "^(\S+)\s+(\S+)\s+(\S+)\s+(\S.+)$"
 'Pattern: first (\S+) captures the check number
 '    second (\S+) captures the date
 '    next one captures the amount
 '    (\S.+)$ captures to the end of the line (i.e. the name)
 
 Line Input #lngIN, strLine 'read first line
 'replace spaces with tabs
 strBuf = oRE.Replace(strLine, "$1,$2,$3,""$4"",""")
 
 Do Until EOF(lngIN)
   Line Input #lngIN, strLine
   If Left(strLine, 10) = "          " Then
     'Line begins with blanks and is therefore an address
     'to append to the buffer
     strBuf = strBuf & Trim(strLine) & " "
   Else  'Line starts a new record, so we need to
     'write the existing buffer to disk
     Print #lngOUT, Trim(strBuf) & """"
     '... and start building the next one in strBuf
     strBuf = oRE.Replace(strLine, "$1,$2,$3,""$4"",""")
   End If
 Loop
 
 'Finally, print the last record, which is still in the buffer
 Print #lngOUT, Trim(strBuf) & """"
 
 Close #lngIN
 Close #lngOUT
 
End Sub

--
John Nurick [Microsoft Access MVP]

Please respond in the newgroup and not by email.