>>755です
皆さん色々ありがとうございます
解決しました、これがちょっぱやでした

Dim 文字 As String
Dim 配列() As String
文字 = Replace(文字, "<", ">おちんちんビローン")
配列 = Split(文字, ">")
配列 = Filter(配列, "おちんちんビローン", False)
文字 = Join(配列, "")

入れ子は無しです