初心者の質問もここでよかですか？
Samurizeをいじるためだけに見ているので予備知識は
なにもありません。

Private Function TrimHTML(str)
pos_deb = InStr(1, str, "<")
Do Until pos_deb = 0
pos_fin = InStr(pos_deb, str, ">")
part_d = Mid(str, 1, pos_deb - 1)
part_f = Mid(str, pos_fin + 1, Len(str) - pos_fin)
str = part_d & part_f
pos_deb = InStr(1, str, "<")
Loop
TrimHTML = str
End Function

これはテキストデータからhtmlタグを消去するものらしいのですが、
htmlタグを実際の改行に置き換えるにはどうしたらよいのでしょうか。
元データはラジオ局の放送リストで、
「1.〜〜〜<br>2.〜〜〜<br>3.〜〜〜<br>」を抜き出すまではできました。