.
mmm tienes un problema de logica ya que estas reemplazando por el alfabeto y sustituyes a las mismas, lo que te recomiendo es que uses

 
mid$(Source ,  Posicion, longitud ) = replace$ ( mid$(Source ,  Posicion, longitud ) , Antiguo_String , Nuevo_String )
 
 

con esto evitas eso que dices.

P.D.: Ese codigo se reducen a unas cuantas lineas de codigo usando un For Next sin esfuerzo alguno y un array.

Dulces Lunas!¡.

.
No es un problema mental, mas bien de flojera en muchos casos, donde nadie se detiene a leer un poco sobre el mismo ni a practicarlo.

Mejor EXplicacion que la MSDN no hay mira Mid()

Este es un codigo de "Esboso" los caracteres ñ y/o Ñ te los dejo ati estan como comentarios.

 
Option Explicit
 
Private Sub Form_Load()
    MsgBox Codificate("Temibles Lunas!¡.")
End Sub
 
Private Function Codificate(ByVal vsData As String, Optional ByVal ToReplaceABC As String = "zyxwvutsrqponmlkjihgfedcba") As String
Dim lng_i           As Long
Dim byt_char        As Byte
    If Len(ToReplaceABC) = 26 Then ' // Asc("a")-Asc(z)+1=25 poner 27 si se quiere afgregar la ñ
        For lng_i = 1 To Len(vsData)
            byt_char = Asc(Mid$(vsData, lng_i, 1))
            If byt_char >= 97 And byt_char <= 122 Then      ' a - z
                Mid$(vsData, lng_i, 1) = LCase$(Mid$(ToReplaceABC, byt_char - 96, 1))
            ElseIf byt_char >= 65 And byt_char <= 90 Then   ' A -Z
                Mid$(vsData, lng_i, 1) = UCase$(Mid$(ToReplaceABC, byt_char - 64, 1))
            'ElseIf byt_char = 241 Then ' &#241;
                'Mid$(vsData, lng_i, i) = Mid$(ToReplaceABC, byt_char - 98, lng_i, i)
            'ElseIf byt_char = 209 Then ' &#209;
                'Mid$(vsData, lng_i, i) = Mid$(ToReplaceABC, byt_char - 66, lng_i, i)
            End If
        Next lng_i
    End If
    Codificate = vsData
End Function
 
 

Dulces Lunas!¡.

.
Ya que no entendiste nada (aun que editste tu post con otro mensaje) aqui tienes:

La explicacion:

se recorre la string vsData y se toma un caracter ese caracter se transforma a su valor ASCII o mejor dicho a byte despues se le hace una SUSTITUCION de esa posicion del caracter por la que este en la variable del parametro llamada "ToReplaceABC", verificando y RESPETANDO mayusculas de minusculas para esto se usa el if then dentro del for que esta recorriendo la cadena y haci tomando un caracter por cada iteración es decir

es decir:

Si ingresas en la funcion la palabra "Hola"

1ra iteracion
  * Tomamos la primera letra o caracter y se convierte a ASCII para saber si es una minuscula o mayuscula dependiendo de esto el if deside que hacer:
  ** Caso uno minuscula:
  ** Caso Mayuscula.
  ***    aun que la unica diferencia de estas desiciones es convertir la letra a mayuscula o minuscola con LCase$() o UCase$() respectivamente despues de tomar la letra de la cadena de la variable "ToReplaceABC".
  *** En una forma mas practica:

ABC-Normal:
  abdefhhijklmnopqrstuvwxyz

ABC Invertido y usado en la funcion:
  zyxwvutsrqponmlkjihgfedcba

Es decir que la H se sustituye por la S ya que hay es donde deberia estar a H pero en su lugar esta la S

lade demas Iteracciones son con el mismo proceso

¿Te falta esta base?: codigo ASCII aqui tienes la tabla ( con esto sabras el por que del numero 65, 90, 97, 122 y el por que de la ñ/Ñ )



--------------------------------------


se usa

Mid$() = algo

paraque no se rearme la string y por ende se trabaje directamente en ella sin crear una nueva.

P.D.: el codigo es simple y no nesesitabatanta explicación o comentarios, solo puse cosas breves para saber los rangos,

----------------------------------------------


es enserio?

Dulces Lunas!¡.

.
LOL

ya viste el 2do parametro?

Dulces Lunas.

Aprender y no leer es incompatible, BlackZer0x te mostró una manera sencilla de hacerlo.
Ve poco a poco, si no entiendes una función busca en Google, encontrarás explicación y muuuuuchos ejemplos.

DoEvents!