Uso di MID per estrarre tag immagine

[iadream]

Salve amii, ho dei record di un DB che contengono testo html, ed alcune volte sono presenti anche immagini (ovviamente sottoforma di codice html).

Stavo provando ad utilizzare una funzione con MID per poter estrarre solo i tag <img>

'cerca il prossimo inizio di tag
		ps1 = Instr((homepage.Fields.Item("CONTENUTO").Value), "<img")
		'se non lo trovi esci dal ciclo di ricerca (non ci sono più tag da eliminare)
		if ps1 <> 0 then
		 
		 ps2 = Instr(ps1, (homepage.Fields.Item("CONTENUTO").Value), "/>")
		 
		 IMG = Mid((homepage.Fields.Item("CONTENUTO").Value), ps1, ps2)
		 
		 response.write(IMG)
		 
		 end if

però non mi prende solo il tag <img> ma anche qualche carattere dopo:

[img]/public/Image/panorama.jpg[/img]Carissimi tifosi, 

adesso che il campo ha emess

Dove sbaglio?