ASP - Ayuda con TXT

Hola amigos, me gustaría saber si alguno de ustedes pudiese ayudarme con lo siguiente. Tengo un archivo TXT el cual no está estructurado de ninguna manera, de echo esta escrito en prosa. Y me gustaria extraer los mails que vienen encapsulados por el signo menor que (<) y mayor que (>). El archivo contiene los mensajes de respuesta de distintos servidores a los caules no les llegó, reboto o falló por algun motivo un mail enviado a una gran cantidad de clientes y me gustaría poder identificar el mail la cuenta que no recibio el mail. Esperando alguna ayuda, se despide atentamente. Javier.

Aqui hay en ejmplo, lo adaptas tus necesidades
espero t sirva.

set ObjFile = createobject("scripting.filesystemobject")

Ruta_archivo="C:Cuentas.txt"

If objFile.FileExists(Ruta_Archivo) then
set ObjFichero = Objfile.OpenTextFile(Ruta_archivo)
i=0
do while not objFichero.AtEndOfStream
Linea = objFichero.readline ' Linea del archivo
if Linea<>"" then
cuenta=split(Linea,"<")
for i =0 to ubound(cuenta)
Response.write Cuenta(i) & "<br>"
next
end if
loop
ObjFichero.Close
else
msg="Ruta o archivo no existe..."
end if