Извлечение текста - VBA

Формулировка задачи:

Имеется текстовый файл, в котором темы определены разделителями #тема1# текст темы1 #тема1# #тема2# текст темы2 #тема2# на входе тема(#тема1#), нужно извлечь из текстового файла текст этой темы

Решение задачи: «Извлечение текста»

textual
                            Листинг программы 
                        

                            Sub tt()
Dim a, i&
a = Split(ReadTXTfile("C:\Downloads\test.txt"), vbNewLine)
For i = 0 To UBound(a) - 1
If a(i) = "#тема1#" Then MsgBox a(i + 1): Exit For
Next
End Sub
 
Function ReadTXTfile(ByVal filename As String) As String
    On Error Resume Next: Set fso = CreateObject("scripting.filesystemobject")
    Set ts = fso.OpenTextFile(filename, 1, True): ReadTXTfile = ts.ReadAll: ts.Close
    Set ts = Nothing: Set fso = Nothing
End Function
                        