This is ASP code. The only major differences are the ASP framework provides
the Server and Response objects, so you don t have them here in VBA.



Server.CreateObject can simply be replaced with just CreateObject (drop the
Server.).



Response.write is how you display HTML on a web page. In this case it s how
the sample code  shows the results of the web page invocation, so you can
either MsgBox it or Debug.Print it or when you re ready, store the results
wherever you want them to go. For now you may wish to try:



Msgbox PostURL("http://ssdi.rootsweb.com/cgi-bin/ssdi.cgi", "ssn="&social)



and see where you go from there.

Set a reference for Microsoft XML.

DIM X As MSXML.XMLHTTPRequest
Dim sURL As String
Dim strResults As String

The rest of your existing code  is rather similar, though I would pass
the variable (SSN) during the initial request, For example...

Set X = New MSXML.XMLHTTPRequest
sURL =
"www.overstock.com/.../d2.cgi
N=0&keywords=" & sSocial
Call X.Open("GET", sURL, True)
X.Send (Null)
strResults = X.responseText

Set X = Nothing

both DoItWithPOST and DoItWithGET return the desired results.



I did need to change the third parameter on the Open call in Craig's code
(in my DoItWithGET) to False from True to tell it to wait for the response.



Make sure Option Explicit is not set for this code  to work, though it
wouldn't be hard to specify all the types.



I'm not bothering to set a reference to pick up the XMLHTTP objects in my
version of Craig's GET code, just using CreateObject.