The Program works fine and fetch one record at a time and display in the
browser. Is it possible that i pass a list of socials into it and then i get
data in a textfile with three information Name, Birth and Death thru VBA code?

Private Sub Form_Load()
Dim social As String, WShell As Object, vPath As String
social = "260-54-6689"
Set WShell = CreateObject("wscript.shell")
vPath = WShell.SpecialFolders("MyDocuments") & "\"
vFile = vPath & "Deceased-Information-" & Format$(Now, "yyyymmdd-hhmmss") &
".html"
Debug.Print vFile
Open vFile For Output As #1
Print #1, PostURL("http://ssdi.rootsweb.com/cgi-bin/ssdi.cgi", "ssn=" & social)
Close #1
Set WShell = Nothing
ShellExecute 0, vbNullString, Chr(34) & vFile & Chr(34), vbNullString,
vbNullString, vbMaximizedFocus
Unload Me
End Sub
MODULE
Function PostURL(sURL, aPostData)
sURL = CStr(sURL)
Dim oXml
Set oXml = CreateObject("Microsoft.XMLHTTP")
oXml.Open "POST", sURL, False
oXml.setRequestHeader "Content-Type", "application/ x-www-form- urlencoded"
oXml.Send aPostData
PostURL = oXml.responseText
Set oXml = Nothing
End Function
Option Explicit
Public Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Lon