Herečs a function that will return the text between your two markers.
function grabtext(filename, search as string) as variant
dim check as boolean
dim text() as string
dim tmp() as string
dim read as string
dim y, x as integer
read = Space(FileLen(filename))
Open filename For Binary As #1
Get #1, 1, read
Close #1
tmp() = Split(read, vbCrLf)
check = false
y = 0
x = 0
for x=0 to UBound(tmp)
if (tmp(x) == search) then
check = true
else
check = false
end if
if (check = true) then
text(y) = tmp(x)
y = y + 1
end if
Next x
return text()
end function
Anyways, this code has not been tested yet at all, so there could be bugs in it. Good luck.