Tenho um TXT e precisaria realizar a importação deste linha a linha.
Hoje faço o comando de importação integral da seguinte forma:

Sub ImportarTXT_Entrada()

Dim Campos As Variant
Dim Arquivo As String

Application.ScreenUpdating = False

Sheets("Entradas").Visible = True

Sheets("Entradas").Select
    Cells.Select
    Selection.ClearContents
    
' aqui abre a caixa de diálogo para escolher o arquivo

Arquivo = Application.GetOpenFilename("Arquivos Texto(*.txt), *.txt")

Open Arquivo For Input As #1

' aqui popula as tabelas e transporta em texto

    With ActiveSheet.QueryTables.Add(Connection:= _
    "TEXT;" & Arquivo, Destination:=Range("$A$1"))
            .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
            2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
    End With
Close #1
    
Sheets("Entradas").Visible = False
Application.ScreenUpdating = True

Sheets("Executar").Select
End Sub