Maybe the following is more what you had in mind.
Code:
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