CodeItBetter Programming Another VB Programming Blog

'Text File Handling - How to Remove all empty lines from the text file
Option Explicit
 
Sub RemoveAllEmptyLinesFromTextFile(ByVal sFile As String)
    Dim sLine As String, sContents As String
    Open sFile For Input As #1
    While Not EOF(1)
        Line Input #1, sLine
        If Not sLine = vbNullString Then
            If EOF(1) Then
                sContents = sContents & sLine
            Else
                sContents = sContents & sLine & vbCrLf
            End If
        End If
    Wend
    Close #1
    Open sFile For Output As #1
    Print #1, sContents
    Close #1
End Sub