I got some code for connecting to the zipcode resolver here on the UT
To whomever contributed it: thanks a bunch!
I did a little embellishing as seen below.
My problem is that this code runs fine on my development machine where I did an install of the VFP 8 CD that included SOAP 3
How would I go about equiping work stations? These return an error something about SOAP not installed.

thisform.MousePointer = 11
IF !ISNULL(contbus.address1) AND !ISNULL(CONTBUS.CITY) AND !ISNULL(CONTBUS.STATE)
	loWS=Createobject("mssoap.soapclient30")
	loWS.mssoapinit("http://webservices.eraserver.net/zipcoderesolver/zipcoderesolver.asmx?WSDL")
	USPSAddress = loWS.CorrectedAddressXml("9999", contbus.address1,contbus.city,contbus.state)
	* XML returned
	IF TYPE("USPSAddress.item(4).text")#"U"
		m.fullzip = USPSAddress.item(4).text
		lYesDoIt = .f.
		DO case
		CASE TRIM(m.fullzip) == TRIM(contbus.zip)
		case LEFT(m.fullzip,5) # LEFT(contbus.zip,5)
			IF MESSAGEBOX("Select Suggested Zip: "+m.fullzip+"?",4,"Zip is incorrect") = 6
				lYesDoIt = .t.
			ENDIF
		CASE SUBSTR(m.fullzip,7,4) # "0000" AND SUBSTR(m.fullzip ,7,4) # SUBSTR(contbus.zip,7,4)
			IF MESSAGEBOX("Select Suggested Zip: "+m.fullzip+"?",4,"Zip Extension is incorrect") = 6
				lYesDoIt = .t.
			ENDIF
		OTHERWISE
			debugout("Unexpected Condition")
		endc
		IF lYesDoIt
			REPLACE contbus.zip WITH m.fullzip
			this.Parent.txtzip.refresh()
		ELSE
			MESSAGEBOX("Zip Code Matches Lookup",0,"Great")
		ENDIF
	IF .f.
		adstring = ""
		FOR i=0 TO USPSAddress.length-1
			IF NOT EMPTY(USPSAddress.item(i).text)
				adstring = adstring + USPSAddress.item(i).nodeName + ": "+ USPSAddress.item(i).Text+CHR(13)
			endi
		ENDFOR
		MESSAGEBOX(adstring,0,"")
	endi
	ENDIF
	RELEASE USPSAddress
	RELEASE loWS
ELSE
	MESSAGEBOX("Not Enough Information",0,"")
endi

thisform.mousepointer = 0
<\Pre>