Como faço pro Regex ler o texto resumidamente.

Question

Public Function RetornaResumo(ByVal post As String) As String

            Dim strRetorno, strTemp As String

            Dim verifica As New RegularExpressions.Regex(RegexOptions.IgnorePatternWhitespace)

            strRetorno = post

            Regex.Replace(strRetorno, "(?i)<td[^>]*>", "")

            strTemp = strRetorno

            strRetorno = Left(strRetorno, 111)

            If Len(strTemp) > Len(strRetorno) Then

                strRetorno = strRetorno & "[...]"

            End If

            Return strRetorno

        End Function