sostituzione di una parte di codice

[Fello]

Ciao a tutti, il mio problema è questo:
recupero un pezzo di codice usando questo script:

<%
Function EstraiTable(Buffer)
Dim PosInit,PosEnd,StrSearch
StrSearch = "Pattern inizio"
PosInit = InStr(1,Buffer,StrSearch,1)
	If PosInit>0 then
		PosInit = PosInit + Len(StrSearch)
		PosEnd = InStr(PosInit,Buffer,"pattern fine",1)
		If PosEnd > 0 then EstraiTable = Mid(Buffer,PosInit,PosEnd-PosInit+1)
	End if
End Function
dim myURL
myURL = ("http://www.ecceteraeccetera.ext/pagina.html")
Set XMLHTTP = Server.CreateObject("Msxml2.xmlhttp")
XMLHTTP.open "GET", myURL, false
XMLHTTP.send myPost
mypage = EstraiTable( XMLHTTP.responseText)
Response.Write myPage
Set XMLHTTP = Nothing
%>

ora vorrei eliminare da questo pezzo di codice tutti i tag <map> e il relativo contenuto.
Come posso fare?