Hi all DNN pros

I have found what I was looking for:

            Dim HtmlText2 As String = ""
            Dim re As New Regex("<\S[^>]*>")
            HtmlText2 = re.Replace(HtmlText, "")
            Dim HtmlTextSummary As String = MakeSummary(HtmlText2)

        Private Function MakeSummary(ByVal instring As String) As String
            Dim outstring As String = ""
            Dim Length As Integer = instring.Length
            If Length > 155 Then
                Length = 155
            End If
            outstring = instring.Substring(0, Length) + " ..."
            Return outstring
        End Function

does get my text without any Html and then I just chop of a 155 character bit in the beginning.

/Johan   www.fotbolls-vm-2010.nu