'---First you have to make refrence to the FileSystemObject:
Dim objFSO as Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
'--- Then Open the text file you want to read from:
Dim objTextFile as Object
St objTextFile = objFSO.OpenTextFile("c:\mytextfile.txt")
'--- Then Read the contents of the text file
MsgBox(objTextFile.ReadAll)