Sub Retangulo2_Click()

vtext = "Elipse S\u00e3o Paulo" 
nStart = InStr(1,vtext,"\u") 
utext = Mid(vtext, nStart, 6) 
Set dicUTF = dicutf8() 
ctext = dicUTF.Item(utext) 
Msgbox replace(vtext,utext,ctext) 

End Sub 

Function dicutf8() 

Set dic = CreateObject("Scripting.Dictionary") 

dic.Add lcase("\u0020")," " 
dic.Add lcase("\u0021"),"!" 
dic.Add lcase("\u0022"),Chr(34) 
dic.Add lcase("\u0023"),"#" 
dic.Add lcase("\u0024"),"$" 
dic.Add lcase("\u0025"),"%" 
dic.Add lcase("\u0026"),"&" 
dic.Add lcase("\u0027"),"'" 
dic.Add lcase("\u0028"),"(" 
dic.Add lcase("\u0029"),")" 
dic.Add lcase("\u002A"),"*" 
dic.Add lcase("\u002B"),"+" 
dic.Add lcase("\u002C"),")," 
dic.Add lcase("\u002D"),"-" 
dic.Add lcase("\u002E"),"." 
dic.Add lcase("\u002F"),"/" 
dic.Add lcase("\u0030"),"0" 
dic.Add lcase("\u0031"),"1" 
dic.Add lcase("\u0032"),"2" 
dic.Add lcase("\u0033"),"3" 
dic.Add lcase("\u0034"),"4" 
dic.Add lcase("\u0035"),"5" 
dic.Add lcase("\u0036"),"6" 
dic.Add lcase("\u0037"),"7" 
dic.Add lcase("\u0038"),"8" 
dic.Add lcase("\u0039"),"9" 
dic.Add lcase("\u003A"),":" 
dic.Add lcase("\u003B"),";" 
dic.Add lcase("\u003C"),"<" 
dic.Add lcase("\u003D"),"=" 
dic.Add lcase("\u003E"),">" 
dic.Add lcase("\u003F"),"?" 
dic.Add lcase("\u0040"),"@" 
dic.Add lcase("\u0041"),"A" 
dic.Add lcase("\u0042"),"B" 
dic.Add lcase("\u0043"),"C" 
dic.Add lcase("\u0044"),"D" 
dic.Add lcase("\u0045"),"E" 
dic.Add lcase("\u0046"),"F" 
dic.Add lcase("\u0047"),"G" 
dic.Add lcase("\u0048"),"H" 
dic.Add lcase("\u0049"),"I" 
dic.Add lcase("\u004A"),"J" 
dic.Add lcase("\u004B"),"K" 
dic.Add lcase("\u004C"),"L" 
dic.Add lcase("\u004D"),"M" 
dic.Add lcase("\u004E"),"N" 
dic.Add lcase("\u004F"),"O" 
dic.Add lcase("\u0050"),"P" 
dic.Add lcase("\u0051"),"Q" 
dic.Add lcase("\u0052"),"R" 
dic.Add lcase("\u0053"),"S" 
dic.Add lcase("\u0054"),"T" 
dic.Add lcase("\u0055"),"U" 
dic.Add lcase("\u0056"),"V" 
dic.Add lcase("\u0057"),"W" 
dic.Add lcase("\u0058"),"X" 
dic.Add lcase("\u0059"),"Y" 
dic.Add lcase("\u005A"),"Z" 
dic.Add lcase("\u005B"),"[" 
dic.Add lcase("\u005C"),"\" 
dic.Add lcase("\u005D"),"]" 
dic.Add lcase("\u005E"),"^" 
dic.Add lcase("\u005F"),"_" 
dic.Add lcase("\u0060"),"`" 
dic.Add lcase("\u0061"),"a" 
dic.Add lcase("\u0062"),"b" 
dic.Add lcase("\u0063"),"c" 
dic.Add lcase("\u0064"),"d" 
dic.Add lcase("\u0065"),"e" 
dic.Add lcase("\u0066"),"f" 
dic.Add lcase("\u0067"),"g" 
dic.Add lcase("\u0068"),"h" 
dic.Add lcase("\u0069"),"i" 
dic.Add lcase("\u006A"),"j" 
dic.Add lcase("\u006B"),"k" 
dic.Add lcase("\u006C"),"l" 
dic.Add lcase("\u006D"),"m" 
dic.Add lcase("\u006E"),"n" 
dic.Add lcase("\u006F"),"o" 
dic.Add lcase("\u0070"),"p" 
dic.Add lcase("\u0071"),"q" 
dic.Add lcase("\u0072"),"r" 
dic.Add lcase("\u0073"),"s" 
dic.Add lcase("\u0074"),"t" 
dic.Add lcase("\u0075"),"u" 
dic.Add lcase("\u0076"),"v" 
dic.Add lcase("\u0077"),"w" 
dic.Add lcase("\u0078"),"x" 
dic.Add lcase("\u0079"),"y" 
dic.Add lcase("\u007A"),"z" 
dic.Add lcase("\u007B"),"{" 
dic.Add lcase("\u007C"),"|" 
dic.Add lcase("\u007D"),"}" 
dic.Add lcase("\u007E"),"~" 
dic.Add lcase("\u00A1"),"¡" 
dic.Add lcase("\u00A2"),"¢" 
dic.Add lcase("\u00A3"),"£" 
dic.Add lcase("\u00A4"),"¤" 
dic.Add lcase("\u00A5"),"¥" 
dic.Add lcase("\u00A6"),"¦" 
dic.Add lcase("\u00A7"),"§" 
dic.Add lcase("\u00A8"),"¨" 
dic.Add lcase("\u00A9"),"©" 
dic.Add lcase("\u00AA"),"ª" 
dic.Add lcase("\u00AB"),"«" 
dic.Add lcase("\u00AC"),"¬" 
dic.Add lcase("\u00AD"),"­" 
dic.Add lcase("\u00AE"),"®" 
dic.Add lcase("\u00AF"),"¯" 
dic.Add lcase("\u00B0"),"°" 
dic.Add lcase("\u00B1"),"±" 
dic.Add lcase("\u00B2"),"²" 
dic.Add lcase("\u00B3"),"³" 
dic.Add lcase("\u00B4"),"´" 
dic.Add lcase("\u00B5"),"µ" 
dic.Add lcase("\u00B6"),"¶" 
dic.Add lcase("\u00B7"),"·" 
dic.Add lcase("\u00B8"),"¸" 
dic.Add lcase("\u00B9"),"¹" 
dic.Add lcase("\u00BA"),"º" 
dic.Add lcase("\u00BB"),"»" 
dic.Add lcase("\u00BC"),"¼" 
dic.Add lcase("\u00BD"),"½" 
dic.Add lcase("\u00BE"),"¾" 
dic.Add lcase("\u00BF"),"¿" 
dic.Add lcase("\u00C0"),"À" 
dic.Add lcase("\u00C1"),"Á" 
dic.Add lcase("\u00C2"),"Â" 
dic.Add lcase("\u00C3"),"Ã" 
dic.Add lcase("\u00C4"),"Ä" 
dic.Add lcase("\u00C5"),"Å" 
dic.Add lcase("\u00C6"),"Æ" 
dic.Add lcase("\u00C7"),"Ç" 
dic.Add lcase("\u00C8"),"È" 
dic.Add lcase("\u00C9"),"É" 
dic.Add lcase("\u00CA"),"Ê" 
dic.Add lcase("\u00CB"),"Ë" 
dic.Add lcase("\u00CC"),"Ì" 
dic.Add lcase("\u00CD"),"Í" 
dic.Add lcase("\u00CE"),"Î" 
dic.Add lcase("\u00CF"),"Ï" 
dic.Add lcase("\u00D0"),"Ð" 
dic.Add lcase("\u00D1"),"Ñ" 
dic.Add lcase("\u00D2"),"Ò" 
dic.Add lcase("\u00D3"),"Ó" 
dic.Add lcase("\u00D4"),"Ô" 
dic.Add lcase("\u00D5"),"Õ" 
dic.Add lcase("\u00D6"),"Ö" 
dic.Add lcase("\u00D7"),"×" 
dic.Add lcase("\u00D8"),"Ø" 
dic.Add lcase("\u00D9"),"Ù" 
dic.Add lcase("\u00DA"),"Ú" 
dic.Add lcase("\u00DB"),"Û" 
dic.Add lcase("\u00DC"),"Ü" 
dic.Add lcase("\u00DD"),"Ý" 
dic.Add lcase("\u00DE"),"Þ" 
dic.Add lcase("\u00DF"),"ß" 
dic.Add lcase("\u00E0"),"à" 
dic.Add lcase("\u00E1"),"á" 
dic.Add lcase("\u00E2"),"â" 
dic.Add lcase("\u00E3"),"ã" 
dic.Add lcase("\u00E4"),"ä" 
dic.Add lcase("\u00E5"),"å" 
dic.Add lcase("\u00E6"),"æ" 
dic.Add lcase("\u00E7"),"ç" 
dic.Add lcase("\u00E8"),"è" 
dic.Add lcase("\u00E9"),"é" 
dic.Add lcase("\u00EA"),"ê" 
dic.Add lcase("\u00EB"),"ë" 
dic.Add lcase("\u00EC"),"ì" 
dic.Add lcase("\u00ED"),"í" 
dic.Add lcase("\u00EE"),"î" 
dic.Add lcase("\u00EF"),"ï" 
dic.Add lcase("\u00F0"),"ð" 
dic.Add lcase("\u00F1"),"ñ" 
dic.Add lcase("\u00F2"),"ò" 
dic.Add lcase("\u00F3"),"ó" 
dic.Add lcase("\u00F4"),"ô" 
dic.Add lcase("\u00F5"),"õ" 
dic.Add lcase("\u00F6"),"ö" 
dic.Add lcase("\u00F7"),"÷" 
dic.Add lcase("\u00F8"),"ø" 
dic.Add lcase("\u00F9"),"ù" 
dic.Add lcase("\u00FA"),"ú" 
dic.Add lcase("\u00FB"),"û" 
dic.Add lcase("\u00FC"),"ü" 
dic.Add lcase("\u00FD"),"ý" 
dic.Add lcase("\u00FE"),"þ" 
dic.Add lcase("\u00FF"),"ÿ"
 
Set dicutf8 = dic 

End Function	

Sub Dummy()
End Sub