Que valor tiene strURL?
Estas seguro que le estas concatenando los valores?
Código:
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
campos="&blog_name=" & blog_name & "&url=" & url & "&title=" & title & "&excerpt=" & excerpt
strURL = strURL & "?" & campos
objHTTP.Open "POST", strURL, FALSE
objHTTP.Send campos
Salu2,