Parsear es lo que estás haciendo aquí:
Código:
SubCadena = EnMedio(Cadena, "<td>", "</td>")
Response.write "Lo de enmedio: " & SubCadena
Function EnMedio(Cadena, TagIni, TagFin)
PosIni = InStr(Cadena,TagIni)+Len(TagIni)
PosFin = InStr(Cadena,TagFin)-Len(TagFin)
Longitud = Len(Cadena)-(Len(TagIni)+Len(TagFin))
EnMedio = MID(Cadena, PosIni,Longitud)
Lo que te decía es que si sabes cuales son tus delimitadores, la tarea se hace más sencilla, pero de todas maneras necesitarás poner un poco de ingenio.
Saludos