if Form1.txtPhone.value="" then
	exit sub
end if
if not IsNumeric(Form1.txtPhone.value) then
	msgbox "Please enter valid phone number or leave this field blank. Thank you",vbInformation,"Invalid Phone"
	Form1.txtPhone.value=""
	Form1.txtPhone.focus()
	exit sub
end if