Sub Main Dim sSearchTerm$ Dim sEncoded$ ' Build a query-string value from a term containing spaces and ' accented characters. sSearchTerm$ = "Café Brűlé" sEncoded$ = Text2Web(sSearchTerm$) Debug.Print"Encoded: "; sEncoded$ Debug.Print"Decoded: "; Web2Text(sEncoded$) EndSub