Dim TextFile As Integer
Dim FilePath As String
Dim FileContent As String
Dim FileNum As Integer
Dim DataLine As String

    'File Path of Text File
    FilePath = "E:\Zmani\Logging\202004011500__Tmp_61385499383529 09.py_.txt"
    

    FileNum = FreeFile()
    Open FilePath For Input As #FileNum

    While Not EOF(FileNum)
        Line Input #FileNum, DataLine
        FileContent = FileContent & DataLine & vbCr
    Wend
    FileContent = Left(FileContent, Len(FileContent) - 1)
    Close

    'Report Out Text File Contents
    MsgBox FileContent