Importar parte de arquivo txt - varias linhas

Boa tarde....
sei que este assunto é um assunto massacrado... até pensei que não teria problemas.. mas não sei o porque não estou conseguindo concluir....

Enfim vamos la...
o banco esta neste link para facilitar...
o que o ocorre é que tenho um arquivo de texto com várias linhas, mail de 300 acredito... separado por ";" Como abaixo:

6010178221;79095774000101;198606;12520999;08842;4783102
6010179546;78600814000154;196506;12520999;76678;4530703
6010184388;78590510000153;196411;11011112;76678;1510600
6010180633;77285955000167;196508;12520999;76678;4530703
6010188456;79119988000162;198606;12520999;76678;4712100
6010180714;78600095000171;195807;12520999;74713;4744001


o que preciso importar é apenas as 3 primeiras colunas então tentei adaptar o código do JPaulo...
como abaixo:

Código:


Private Sub btnSintegra_Click()
'By JPaulo ® Maximo Access
Dim Delimitador As String
Dim DB As Database
Dim fnum As Integer
Dim LinhaDoTexto, LinhaDoTextoTemp As String, DadoCampo, i As Integer
Dim InstrucaoSQL As String
Dim Posicao As Integer
Dim QtdDeRegistros As Long
Dim ArquivoTexto As String
Dim strBanco As Databases
Dim strTabela As String
Dim NomeArq As String
NomeArq = "ativosPR.txt"

    ArquivoTexto = CurrentProject.Path & "\Sintegra\" & NomeArq 'caminho do arq de texto
    Delimitador = ";" 'defina aqui qual o delimitador que não quer importar

    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

                DadoCampo = Split(LinhaDoTexto, Delimitador)
                InstrucaoSQL = "INSERT INTO tblSintegra (IE, CNPJ, DataHab, ESTADO, Ativo) "
                InstrucaoSQL = InstrucaoSQL & "VALUES ('" & DadoCampo(0) & "', '" & DadoCampo(1) & "', '" & DadoCampo(2) & "', 'PR', 'S')"
            
            On Error GoTo SQLError
            DB.Execute InstrucaoSQL
            On Error GoTo 0
            QtdDeRegistros = QtdDeRegistros + 1

    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


Mas ele importa apenas a primeira linha...

Não consigo pular para as próximas...

Alguém pode me ajudar??
desde já agrdeço.

Uma das coisas que percebi apenas agora é que o bloco de notas não tem quebra de linha.... ele esta como se fosse uma linha só.