>>75
str2 = Replace(str,"<br>",vbCrLf)

適当にやればこんなんかな。