Dim strFilename As String: strFilename = "C:\temp\yourfile.txt"
Dim strFileContent As String
Dim iFile As Integer: iFile = FreeFile
Open strFilename For Input As #iFile
strFileContent = Input(LOF(iFile), iFile)
Dim od,do as Integer
od=inStr(strFileContent,"<release>")+9
do=inStr(strFileContent ,"</release>")
vstr=Mid(strFileContent,od,do)
Close #iFile
'to tak mniej więcej - kodu nie sprawdzałem,
a co do obsługi pliku to :
instr - szuka ciągu w stringu
mid to odpowiednik substring
http://codevba.com/office/read_text_file_into_string_variable.htm#.W9yHrntKi70