Retirando tags HTML de uma string

'  Função que retorna uma string sem as TAGS HTML passada como parametro

Function LimpaHTML(matriz)
Do While True
   ini     = InStr(1,matriz,"<")
   If ini  = 0 Then Exit Do
   fim     = InStr(ini,matriz,">")
   parcial = Mid(matriz,ini,fim-ini+1)
   matriz  = Replace(matriz,parcial,"")
Loop
LimpaHTML  = matriz
End Function

' Ex. Response.Write LimpaHTML("<B>Exemplo</B>") Retornará somente Exemplo. Teste com HTMLEncode.

Esta matéria foi postada originalmente no ASP4Developers por Adriano Dias (site), que na época era "Gerente de Informática que odeia terno e gravata e que gosta mesmo é de análise e programação. Linuxeiro sem ser radical e ASPeiro por prazer.". Hoje, vai saber...