VBA HTMLソース変換(ブログ投稿用)

HTMLソースをここ(gooブログ)に掲載するとき
そのまま張り付けては、化けてしまう(タグが反応する)ので空白を全角に変換するとか
< , > , & を全角に変換するとかしていました。
ただ、 &…等（ここには書けないですが）に変換すれば、
ＯＫというのは知っていたんですが・・・
ああ VBAマクロで変換してしまえば楽か！　
と思いついて変換ツールを作ってみました。↓

Sub htmlConv()
　Dim str As String str = Cells(3, 2).Text
　If Len(str) > 30000 Then
　　MsgBox "入力文字数超過！(" & Len(str) & ")" Exit Sub
　End If
　str = Replace(str, "&", "&")
　str = Replace(str, "<", "<")
　str = Replace(str, ">", ">")
　str = "" & vbNewLine & str & ""
　With New MSForms
　　.DataObject
　　.SetText str
　　.PutInClipboard
　End With
　MsgBox "変換結果をクリップボードにCOPYしました。(" & Len(str) & ")"
End Sub

残念、やっぱり化けますね。使えない！