'Returns a string containing all the text in a file.
'The default folder depends on how the script is run.
'But it's usually the folder the script is in.
' Dim sContents
' sContents = GetFileContents("smr_mt571_extract.txt")
' MsgBox Len(sContents)
Dim oFso, oFile, oTs

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oFile = oFso.GetFile(vsFilePath)
Set oTs = oFile.OpenAsTextStream(1) ' <-- 1 means ForReading
GetFileContents = oTs.Read(oFile.Size)
oTs.Close Set oTs = Nothing
Set oFile = Nothing
Set oFso = Nothing