Removendo tags HTML com função

eae galera,olha só,fiz na corrida aqui uma funçãozinha q remove as tag html de uma variavel,só q sei q essa ai ta mto nobie,c a string for mto grande vai fica demorado pakas,c alguem poder dar uma otimizada nela ai fico mto grato,flw texto = "<div> OLÁ </div>" while not inStr(1,texto,"<") = 0 substituir = "" inicio = inStr(1,texto,"<") fim = inStr(1,texto,">") if CInt(inicio) > 0 then substituir = Mid(texto,inicio,fim) texto = replace(texto,substituir,"") end if wend