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