Porque já não gera o Txt sem essas linhas???

Reinaldo,

Não da por que o arquivo txt vem de uma estrutura XML definida que em algumas linhas tem informações e nas outras não tem, e essas linhas que não tem informações geram o codigo da estrutura (porém sem dado algum) e precisam ser deletadas.

Sds,
Luciano

Veja se lhe auxilia

Option Explicit
Public Sub Ler_e_Excluir_Texto()
Dim L As Long, FName As String, F2 As Integer, Texto As String
    
'abre o arquivo texto para leitura.
'Altere para o caminho e nome de seu arquivo
Open "D:ReinaldoArquivos GrupoExcelExemplosInvestimentos.txt" For Input As #1
'Cria um novo arquivo (Altere para o caminho e nome de seu arquivo)
FName = "D:ReinaldoArquivos GrupoExcelExemplosInvestimentosN.txt"
F2 = FreeFile
'Abre o novo aruqivo para gravação
Open FName For Output As #F2
L = 1
'loop para percorrer todas as linhas do arquivo texto
Do While Not EOF(1)
    Line Input #1, Texto 'lê uma linha
'Verifica as linhas
Select Case L
    Case 2, 106, 107 'Linhas lque não serão consideradas
    MsgBox L
    Case Else
    Print #F2, Texto
End Select
L = L + 1

Loop
Close #1 'fecha o arquivo texto
Close #F2 'fecha o arquivo texto
End Sub