Importar txt sem delimitador

Amigos,

Boa noite!

Eis me aqui mais uma vez na luta para desenvolver um software eficiente!

Seguinte:
Tenho um aquivo txt gerado pelo banco onde emito boletos, quero importar esse arquivo para uma tabela especifica, o problema é que esse arquivo não tem "delimitador".
O meu cliente vai baixar esse arquivo direto do site do banco, e quero que o código de importação busque o arquivo no diretório independente do nome, pois não quero que o cliente tenha que renomear o arquivo.

Minha ideia é a seguinte:
Importar o arquivo, e depois disso deletar o arquivo original.

Estou anexando o arquivo que quero importar, será que alguem consegue me ajudar? Não tenho a menor ideia de como começar.

Muito Obrigado mestres!

Boa noite, tiago

veja este

Alexandre!!

Obrigado pela dica do Post, confesso que ja tinha visto e me perdi todo aqui.
Baixei o Exemplo do mestre JPaulo, mas não funcionou aqui não.

E da um erro que não tenho ideia de como corrigir, a unica coisa que identifiquei aqui é que o erro que dá é resposta desse código.

SQLError:
MsgBox "Erro na execusão do SQL '" & _
InstrucaoSQL & "'"
Close fnum
DB.Close
Exit Sub

O Código é esse, ja com a adaptaçào para p arquivo que quero buscar...

Desculpe meu amadorismo, mas não ta rolando...


Public Sub ImportaSemDelimitadores()
'By JPaulo ® Maximo Access
Dim Delimitador As String
Dim DB As Database
Dim fnum As Integer
Dim LinhaDoTexto, LinhaDoTextoTemp As String
Dim InstrucaoSQL As String
Dim Posicao As Integer
Dim QtdDeRegistros As Long
Dim ArquivoTexto As String
Dim strBanco As Databases
Dim strTabela As String

ArquivoTexto = "C:\Users\Thiago\Drive Google\Google Drive\Sistema\Arquivos Banco\Retorno\CN06023A.ret" 'caminho do arq de texto
strTabela = "temp" 'nome da tabela no banco

Delimitador = " " 'defina aqui qual o delimitador

If Delimitador = "" Then Delimitador = " "
If Delimitador = "" Then Delimitador = vbTab

fnum = FreeFile
On Error GoTo NoTextFile
Open ArquivoTexto For Input As fnum

On Error GoTo NoDatabase
Set DB = CurrentDb
On Error GoTo 0

Do While Not EOF(fnum)
Line Input #fnum, LinhaDoTexto

'se existe texto, segue o código
If Len(LinhaDoTexto) > 0 Then

'encontrar a linha com o inicio a começar por 4530
If Left(LinhaDoTexto, 4) Like "4530" Then

'aqui deleta onde o texto começar por 4530*
LinhaDoTextoTemp = Mid(LinhaDoTexto, 11, 255)
LinhaDoTexto = LinhaDoTextoTemp
End If

'se existir uma linha em branco, passa para a proxima
If Len(LinhaDoTexto) < 0 Then
LinhaDoTexto = LinhaDoTexto + 1
End If

'percorre todo o texto do txt e adiciona à tabela
InstrucaoSQL = "INSERT INTO " & _
strTabela & " VALUES ("
Do While Len(LinhaDoTexto) > 0
Posicao = InStr(LinhaDoTexto, Delimitador)
If Posicao = 0 Then
InstrucaoSQL = InstrucaoSQL & _
"'" & LinhaDoTexto & "', "
LinhaDoTexto = ""
Else
InstrucaoSQL = InstrucaoSQL & _
"'" & Left$(LinhaDoTexto, Posicao - 1) & _
"', "
LinhaDoTexto = Mid$(LinhaDoTexto, Posicao + Len(Delimitador))
End If
Loop

InstrucaoSQL = Left$(InstrucaoSQL, Len(InstrucaoSQL) - 2) & ")"

On Error GoTo SQLError
DB.Execute InstrucaoSQL
On Error GoTo 0
QtdDeRegistros = QtdDeRegistros + 1

End If

Loop

Close fnum
DB.Close
MsgBox "Inseridas " & Format$(QtdDeRegistros) & " Linhas"
Exit Sub

NoTextFile:
MsgBox "Erro na abertura do Arquivo de Texto."
Exit Sub

NoDatabase:
MsgBox "Erro na abertura do Banco."
Close fnum
Exit Sub

SQLError:
MsgBox "Erro na execusão do SQL '" & _
InstrucaoSQL & "'"
Close fnum
DB.Close
Exit Sub
End Sub