udsnit af tekst/html

Daws
Jeg har et problem med følgende kode. Jeg skal bruge 2 linier tekst med max 50 tegn til et udsnit af nogle nyheder på forsiden af mit site. Koden er også god nok, bare ikke hvis der er et link eller anden html kode i starten af teksten. Kan man ændre denne kode eller er der en anden måde at gribe det an på?

arr = split(LCase(strPageContent),"<br>")
strPageContent = left((arr(0)), 50)

If len(arr(0)) < 25 Then
strPageContent = strPageContent & "<br>" & left((arr(1)), 25)
End If

strPageContent = strPageContent & "..."