Thanks for the tips, here's the code I finally came up with, it's probably not the tidiest way of doing it but it works!!!
Const ForReading = 1
Dim fso, MyFile, Text, Fail
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile =...