Тема

Текст письма...
...
...
и т.д.

Sub Test()
Dim objFile As Object
Dim objFSO As Variant
Dim s As String
Dim sA As String

'первый вариант когда записывается всю содержимое блокнота в строку, и соответственно
'в oMessage.Subject либо в oMessage.Subject
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("D:\vb\test.txt",  1 )
sA = objFile.readall

'второй вариант, когда происходит чтение по-строкам. код ниже читает только первую строку. что 
'бы прочитать весь файл таким образом нужно делать цикл
Open "D:\vb\test.txt" For Input As # 1 
Input # 1 , s
Close # 1 

Debug.Print Mid(sA, Len(s) +  5 )

End Sub