% Dim sHTML : sHTML = "" sHTML = " " & vbcrlf & _ "" & vbcrlf & _ "
" & vbcrlf & _ "[cb:blog_slogan]
" & vbcrlf & _ "" & vbcrlf & _ " [cb:post_create_date]" & vbcrlf & _ "
" & vbcrlf & _ "[cb:post_body1]
" & vbcrlf & _ "[cb:post_body2]
[cb:post_continue_link]
[cb:blog_category_name]
([cb:blog_category_post_count])
[cb:author_photo_small]
[cb:author_name]
([cb:author_post_count])
" & vbcrlf & _ " [cb:blog_description]" & vbcrlf & _ "
" & vbcrlf & _ " " & vbcrlf & _ " " & vbcrlf & _ "POWERED BY MIHANBLOG.COM
" & vbcrlf & _
"Theme is created by: www.DesignDisease.com