VB Code:
  1. Public Function KillHTML(ByVal strIn As String) As String

  2.   Dim lngLen As Long, lngFound As Long, lngEnd As Long

  3.   Dim strLeft As String, strRight As String

  4.   strIn$ = Replace(strIn$, "<HTML>", "")

  5.   strIn$ = Replace(strIn$, "</HTML>", "")

  6.   strIn$ = Replace(strIn$, "<SUP>", "")

  7.   strIn$ = Replace(strIn$, "</SUP>", "")

  8.   strIn$ = Replace(strIn$, "<HR>", "")

  9.   strIn$ = Replace(strIn$, "<H1>", "")

  10.   strIn$ = Replace(strIn$, "<H2>", "")

  11.   strIn$ = Replace(strIn$, "<H3>", "")

  12.   strIn$ = Replace(strIn$, "<PRE>", "")

  13.   strIn$ = Replace(strIn$, "</PRE>", "")

  14.   strIn$ = Replace(strIn$, "<PRE=", "")

  15.   strIn$ = Replace(strIn$, "<B>", "")

  16.   strIn$ = Replace(strIn$, "</B>", "")

  17.   strIn$ = Replace(strIn$, "<U>", "")

  18.   strIn$ = Replace(strIn$, "</U>", "")

  19.   strIn$ = Replace(strIn$, "<I>", "")

  20.   strIn$ = Replace(strIn$, "</I>", "")

  21.   strIn$ = Replace(strIn$, "<FONT>", "")

  22.   strIn$ = Replace(strIn$, "</FONT>", "")

  23.   strIn$ = Replace(strIn$, "<BODY>", "")

  24.   strIn$ = Replace(strIn$, "</BODY>", "")

  25.   strIn$ = Replace(strIn$, "<BR>", "")

  26.   strIn$ = Replace(strIn$, "</A>", "")

  27.   lngLen& = Len(strIn$)

  28.   lngFound& = InStr(strIn$, "<BODY ")

  29.   Do While lngFound& <> 0

  30.     lngEnd& = InStr(lngFound&, strIn$, ">")

  31.     If lngEnd& <> 0 Then

  32.       strLeft$ = Left(strIn$, lngFound& - 1)

  33.       strRight$ = Right(strIn$, lngLen& - lngEnd&)

  34.       strIn$ = strLeft$ & strRight$

  35.       lngLen& = Len(strIn$)

  36.     End If

  37.     lngFound& = InStr(lngFound& + 1, strIn$, "<BODY ")

  38.   Loop

  39.   lngFound& = InStr(strIn$, "<A ")

  40.   Do While lngFound& <> 0

  41.     lngEnd& = InStr(lngFound&, strIn$, ">")

  42.     If lngEnd& <> 0 Then

  43.       strLeft$ = Left(strIn$, lngFound& - 1)

  44.       strRight$ = Right(strIn$, lngLen& - lngEnd&)

  45.       strIn$ = strLeft$ & strRight$

  46.       lngLen& = Len(strIn$)

  47.     End If

  48.     lngFound& = InStr(lngFound& + 1, strIn$, "<A ")

  49.   Loop

  50.   lngFound& = InStr(strIn$, "<FONT ")

  51.   Do While lngFound& <> 0

  52.     lngEnd& = InStr(lngFound&, strIn$, ">")

  53.     If lngEnd& <> 0 Then

  54.       strLeft$ = Left(strIn$, lngFound& - 1)

  55.       strRight$ = Right(strIn$, lngLen& - lngEnd&)

  56.       strIn$ = strLeft$ & strRight$

  57.       lngLen& = Len(strIn$)

  58.     End If

  59.     lngFound& = InStr(lngFound& + 1, strIn$, "<FONT ")

  60.   Loop

  61.   strIn$ = Replace(strIn$, "&", "&")

  62.   strIn$ = Replace(strIn$, "&lt;", "<")

  63.   KillHTML$ = strIn$

  64. End Function