' Название кодека ассоциировать только со сложностью кодирования
Function Ж(Txt As String) As String
  Dim b() As Byte, i As Long
  b = Txt
  For i =  1  To UBound(b) Step  2 
    If b(i) >=  20  Then
      b(i -  1 ) = b(i -  1 ) Xor b(i)
      b(i) = b(i) -  20 
    Else
      b(i) = b(i) +  20 
      b(i -  1 ) = b(i -  1 ) Xor b(i)
    End If
  Next
  Ж = b
End Function


Sub Test_Ж_кодека()
  
  Dim Txt As String, SQL As String
  
  ' Кодируемый текст
  Txt = "SELECT `bpv_id` FROM bzn_io.`qwertyUIOPйцукенГШЩЗХЪ` WHERE `id` = '1234567890'"
  
  ' Кодируем, прогоняя текст через ... :-)
  [A1] = Ж(Txt)
  
  '[A1].NumberFormat = ";;;" ' <-- чтобы ячейка выглядела пустой
  
  ' А теперь восстанавливаем через ... ту же функцию :-)
  SQL = Ж([A1])
  MsgBox SQL, vbInformation, "Текст ячейки А1"
  
End Sub