[Resolvido]remover linha em branco do arquivo txt

eu tenho este código postado pelo JPaulo aqui.

Código:

Dim strTexto As String

   Open "C:\teste.txt" For Input As #1
    Line Input #1, strTexto: Debug.Print "Line 1: " & strTexto
    Line Input #1, strTexto: Debug.Print "Line 2: " & strTexto
    Line Input #1, strTexto: Debug.Print "Line 3: " & strTexto
   Close #1

Este código lê as 3 linhas, só que a linha dois está em branco. como faço para remover e deixar apenas as preenchidas?

Olá Adriano

Possivelmente usou o IF com o LEN.
Pode partilhar a solução que resolveu.

Os membros do forrum agradecem.

Abraço

A solução deve ter sido esta;

Código:

Dim strTexto As String

  Open "C:\TEMP\teste.txt" For Input As #1

Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 1: " & strTexto
Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 2: " & strTexto
Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 3: " & strTexto
Line Input #1, strTexto: If strTexto <> "" Then Debug.Print "Line 4: " & strTexto

  Close #1