if Form1.txtZip.value="" then
	exit sub
end if
if not IsNumeric(Form1.txtZip.value) then
	msgbox "Please enter valid zip number. Thank you",vbInformation,"Invalid Zip"
	Form1.txtZip.value=""
	Form1.txtZip.focus()
	exit sub
end if