by Denis Petrusenko (6 Submissions)
Category: Internet/HTML
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Thu 14th February 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Removes ALL HTML tags out of a string.
Dim kS, kE
Do While InStr(1, s, "<") > 0
kS = InStr(1, s, "<")
kE = InStr(1, s, ">")
s = Left(s, kS - 1) & Right(s, Len(s) - kE)
Loop
KillHTMLTags = s
End Function