sim, só que se eu trocar :
Str = Chr(Mid(Valor, i, 1)) If Len(Str) = 1 Then Str = Str
por
Str = Chr(Mid(Valor, i, 2)) If Len(Str) = 2 Then Str = Str
e der um <%Response.Write(Char("979899"))%>
olha o resultado: aObYc
se voce puder me dar uma mao com isso fico grato.
um forte abraço