Как при помощи FSO можно обработать такой (см.внизу)текстовый файл(1.txt) и вывести её на печать !? - VB

Private Sub Command1_Click()
    Dim objFSO As New FileSystemObject
    Dim objTextStream As TextStream
    
    Set objTextStream = objFSO.OpenTextFile("c:\test.txt", ForReading)
    
    While Not objTextStream.AtEndOfStream
        MsgBox objTextStream.ReadLine
    Wend
    
    objTextStream.Close
    
    Set objTextStream = Nothing
    Set objFSO = Nothing
    
End Sub