Override method

[moa]

Hello,

Something like that ?

Dim origstring As String, titi() As Byte, translated As String, i As Integer
origstring = "ABC DEFGHIJKLMNOPQRSTUVWXYZDC"
titi = StrConv(origstring, vbFromUnicode)
translated = ""
For i = 0 To UBound(titi)
  If Chr(titi(i)) Like "[A-Z]" Then
    translated = translated & Chr(90 - titi(i) + 65)
  Else
    translated = translated & Chr(titi(i))
  End If
Next
MsgBox translated

which could of course be written that way too (might be a bit faster)

Dim origstring As String, titi() As Byte, translated As String, i As Integer
origstring = "ABC DEFGHIJKLMNOPQRSTUVWXYZDC"
titi = StrConv(origstring, vbFromUnicode)
translated = ""
For i = 0 To UBound(titi)
  Select Case titi(i)
    Case 65 To 90
      translated = translated & Chr(90 - titi(i) + 65)
    Case Else
      translated = translated & Chr(titi(i))
    End Select
  Next
MsgBox translated