VBScript Code - Reads all lines from file

Write the below code in a notepad and save it as a .vbs file. Either run it from command prompt or run it by double-clicking on it.

VBScript Code - Reads all lines of a file.

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set FSO = CreateObject("Scripting.FilesystemObject")
Set filetxt = FSO.OpenTextFile("c:\myfile.txt", ForReading, False)

while not filetxt.AtEndOfStream
  x=filetxt.ReadLine 
  msgbox x
wend

filetxt.Close