Private Sub ReadTextFileLines()

    Dim fso As Object, f As Object, ts As Object, s As String
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    Set f = fso.getfile("C:\myprog\backup\test.txt")
    Set ts = f.openastextstream(1)
    Do
        s = ts.readline
        MsgBox s
    Loop While Not ts.atendofstream
    Set f = Nothing: Set fso = Nothing: Set ts = Nothing

End Sub