Dim E$, i&, flgKill As Boolean
flgKill = False
For i = 1 To Len(Txt)
  E = Mid$(Txt, i, 1)
  If E = "<" Then flgKill = True
  If flgKill = True Then Mid$(Txt, i, 1) = Chr$(1)
  If E = ">" Then flgKill = False
Next i
Txt = Replace(Txt, Chr$(1), "")
MsgBox Txt

Gruss,

Zardoz