Função para Limpar campo

Tenho o seguinte código:

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
Quando só a textos no campo, tudo roda perfeitamente, mas quando tenho uma imagem dá erro na linha: parcial = mid(matriz,ini,fim-ini+1).

Como posso solucionar o problema ?