Yo tengo un proyecto que hace un post en el que se envía un archivo al servidor, tienes que usar como referencia la librería que viene con windows msxml4.dll.
Dicha libreria te va a permitir trabajar con un objeto que debes definir del tipo XMLHTTP40, luego podrás usar las propiedades send, setrequestheader...
Espero haberte sido de ayuda, suerte con el proyecto, te dejo un trozo de mi código:
Dim ServidorHTTP As XMLHTTP40
Set ServidorHTTP = CreateObject("Msxml2.ServerXMLHTTP")
ServidorHTTP.open "POST", Trim(URLGestor), False
Dim StrBody As String
'******************************************************
'Añadimos los campos al post
'******************************************************
StrBody = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
'....
Dim aPostdata() As Byte
aPostdata = StrConv(StrBody, vbFromUnicode)
ServidorHTTP.setRequestHeader "xxxxxxxxxxxxxxxxxxxxx"
ServidorHTTP.send aPostdata
respuesta = ServidorHTTP.Status