Try this code
Code:
Set fso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = fso.OpenTextFile ("D:\NotePad.txt",1,TRUE)
StrChar = ObjFile.ReadAll
msgbox StrChar