Private Sub GoZipCode(Optional ByVal strZipCode As String = "")
Dim strURL As Variant 'MUST BE VARIANT
strURL = "[URL unfurl="true"]http://www.xxxxx.com/find_zip_code_results.pl?zip=!!!!!&type=lookup_by_zip&x=&y="[/URL]
strURL = Replace(strURL, "!!!!!", strZipCode)
On Error Resume Next 'Don't stop execution, continue on next line
ClearOutput
mobjWeb.Visible = True
mobjWeb.Stop
mstrDownload = "HandleGotZipCode"
mobjWeb.Navigate strURL
On Error GoTo 0
End Sub
Public Sub HandleGotZipCode()
'*****
'* ZIP Code - Got
'*****
Dim I As Long
Dim J As Long
Dim strOutput As String
Dim blnOK As Boolean
Dim lngErr As Long
Dim strState As String
Dim strCity As String
Do
blnOK = False
I = InStr(1, mstrHTML, "found no match", vbTextCompare)
If I > 0 Then
mstrErrDescription = "Not Found"
Exit Do
End If
I = InStr(1, mstrHTML, "city:", vbTextCompare)
If I = 0 Then Exit Do
J = InStr(I, mstrHTML, "state:", vbTextCompare)
If J = 0 Then Exit Do
J = InStr(J, mstrHTML, "<")
If J = 0 Then Exit Do
strOutput = mobjDHTML.StripTags(Mid$(mstrHTML, I, J - I))
strOutput = Replace(strOutput, "city:", "", , , vbTextCompare)
strOutput = Replace(strOutput, "state:", "", , , vbTextCompare)
I = InStrRev(strOutput, " ")
If I = 0 Then Exit Do
strState = Trim$(Mid$(strOutput, I + 1))
strCity = Trim$(Mid$(strOutput, 1, I - 1))
blnOK = True
Exit Do: Loop
If blnOK Then
mstrCity = strCity
mstrState = strState
mblnOutputAvailable = True
End If
mblnFound = blnOK
mblnBusy = False
mform.ZOrder 1
End Sub