<session>
      <documents>
        <document>
          <type>doc-invoice</type>
          <object>00HQ13800JrY</object>
        </document>
        <document>
          <type>doc-price-ticket</type>
          <object>00HQ1380007U</object>
        </document>
      </documents>
      <active>00HQ13800JrY</active>
</session>

Dim FileName as String
Dim objFSO as FileSistemObject
Dim F, Buffer

FileName = "C:\Base\settings.xml"

Set objFSO = New FileSystemObject

Set F = objFSO.OpenTextFile(FileName, ForReading)
Buffer = F.ReadAll
F.Close

Buffer = Replace(CStr(Buffer), "<session> * </session>", "<session> сюда вставлю всё что нужно :-) </session>", 1, -1, 1) 'вот здесь меня и заклинило!

Set F = objFSO.OpenTextFile(FileName, ForWriting)
F.Write Buffer
F.Close

Like "<session>" &"*"& "</session>"

Dim FileName as String
Dim objFSO as FileSistemObject
Dim F, Buffer
Dim txt as string

FileName = "C:\Base\settings.xml"

Set objFSO = New FileSystemObject

Set F = objFSO.OpenTextFile(FileName, ForReading)
Buffer = F.ReadAll
F.Close
txt = Mid(Buffer, InStr(Buffer, "<session>") + 9, (CInt(InStr(Buffer, "</session>")) - CInt(InStr(Buffer, "<session>")) - 9)) ' не пойму почему вчера не смог составить этот поиск

Buffer = Replace(CStr(Buffer), txt, " сюда вставлю всё что нужно!!! ", 1, -1, 1) 

Set F = objFSO.OpenTextFile(FileName, ForWriting)
F.Write Buffer
F.Close