I built a form with boxes for each item
street #
street name
street type (ave, st, way)
city
state
In the form I added the activeX control , microsoft web browser , when the user click the find button, it builds the URLstring to the browser...
Code:
Private Sub btnFind_Click()
Dim vUrl
Dim strURL As String
Dim objIE As Object
strURL = "http://www.yahoo.com"
vUrl = "https://tools.usps.com/go/ZipLookupResultsAction!input.action?resultMode=0&companyName=&address1="
vUrl = vUrl & txtNum & "+" & txtStreet & "+" & txtStType
vUrl = vUrl & "&address2=&city=" & txtCity
vUrl = vUrl & "&state=" & cboState & "+"
vUrl = vUrl & "&urbanCode=&postalCode=&zip="
Set objIE = Me.WebBrowser1.Object
objIE.Navigate vUrl
End Sub