Как удалить пустую строку из текста.

Sub ReadTextFileLineByLine()
 
    Dim i As Integer
    Dim msg As String
    Dim sFile As String
    Dim sLine As Variant
    Dim arr As Variant
    Dim txtStream As TextStream
    Dim fso As New FileSystemObject
        
    sFile = "c:\shut down.txt"
    Set txtStream = fso.OpenTextFile(sFile, ForReading)
    arr = Split(txtStream.ReadAll, vbNewLine)
 
    For i = LBound(arr) To UBound(arr)
        msg = msg & arr(i) & vbNewLine
    Next
    
    MsgBox$ msg
 
End Sub

Private Sub Command1_Click()
Dim fp As String, MyText As String, F As Long
'''Text1.MultiLine = True
fp = App.Path & "\file.txt"
If Dir(fp) <> "" Then
Text1.Text = ""
F = FreeFile
Open fp For Input As #F
Do Until EOF(F)
Line Input #F, MyText
If Trim(MyText) <> "" Then
Text1.Text = Text1.Text & MyText & vbCrLf
End If
Loop
Close #F
Else
MsgBox "Not"
End If
End Sub

Option Explicit
Dim a As String
 
Private Sub Form_Load()
Open "C:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
If Mid(a, 1, 1) = " " Then Text1.Text = Text1.Text & " "
Text1.Text = Text1.Text & Mid(a, 1, 11) & "  " & Mid(a, 31, 5) & vbCrLf
Loop
Close #1
 
Open "C:\2.txt" For Output As #2
Print #2, Text1.Text
Printer.FontSize = 11
Printer.Print Text1.Text
Printer.EndDoc
Print a
Close #2
End
End Sub

Private Sub Form_Load()
Text1.Text = ""
Open "C:\1.txt" For Input As #1
Do Until EOF(1)
Line Input #1, a
If Trim(a) <> "" Then
If Mid(a, 1, 1) = " " Then Text1.Text = Text1.Text & " "
Text1.Text = Text1.Text & Mid(a, 1, 11) & "  " & Mid(a, 31, 5) & vbCrLf
End If
Loop
Close #1
 
End Sub