[VB] Problèmes (dé)cryptage en ASCII

Bonjour,

J'essaye actuellement de faire un logiciel de cryptage en VisualBasic.
Mon logiciel consiste en un décallage des lettre en ASCII.
Je sais pour le moment ce n'est pas très clair, voilà mon code pour vous éclairer :)

Fonction de cryptage :

  Dim n As Integer, i As Integer, a As Integer
  Dim s1 As String, s2 As String, c as String
  
  TextField2.Text = ""
  s1 = TextField1.Text ' affecter à s1 le contenu de text1
  n = Len(s1) ' longueur du texte à coder
  
  For i = 1 To n ' boucle sur chaque caractère du texte
    c= Mid(s1,i,1) ' c est le ième caractère du texte
    a = Asc(c) + 1 ' a est le code ascii de t incrémenté de 1
    If a = 33 Then a = 32 ' si c'est un espace on conserve sa valeur (le code de l'espace est 32)
    s2 = s2 + Chr(a) ' on recompose la chaine avec les codes modifiés
  Next
  TextField2.Text = s2 ' on ecrit le resultat dans text2

Fonction de décryptage :

  Dim n As Integer, i As Integer, a As Integer
  Dim s1 As String, s2 As String, c as String
  
  s2 = TextField2.Text ' affecter à s1 le contenu de text1
  n = Len(s2) ' longueur du texte à coder
  For i = 1 To n ' boucle sur chaque caractère du texte
    c= Mid(s2,i,1) ' c est le ième caractère du texte
    a = Asc(c) - 1 ' a est le code ascii de t incrémenté de 1
    If a = 32 Then a = 32 ' si c'est un espace on conserve sa valeur (le code de l'espace est 32)
    s1 = s1 + Chr(a) ' on recompose la chaine avec les codes modifiés
  Next
  TextField1.Text = s1 ' on ecrit le resultat dans text2

Mon problème, c'est que quand on crypte un "à", un "é" ou certaines autres lettres et qu'on le décrypte, on ne tombe plus sur la même chose !

Je ne sais vraiment pas si c'est clair :S