Try this sample code:
Dim myStr
Dim nStart,nLen, sTmp
myStr = "Opera\'e7\'e3o"
nStart = 0
nLen = Len(myStr)
While nStart < nLen
nStart = Instr(nStart+1,myStr,"\'")
If nStart = 0 Then
nStart = nLen
Else
sTmp = Mid(myStr,nStart,4)
myStr = Replace(myStr,sTmp,Chr(CLng(Replace(sTmp,"\'","&h"))))
End If
Wend
MsgBox myStr
Costis Papadakis