Correction Visual Basic ( très simple )

Bonjour,

Je tente de créer un programme avec un textbox et un bouton ...

Ce prog permetterait de " crypter " par exemple des mail , cela décalerait d'une place les lettre exemple :

AAA devient BBB

ABC devient BCD

Etc...

Voici mon code :

Private Sub Command1_Click()
Dim s As String
s = Text1.Text
s = s.Replace("a", "b")
s = s.Replace("b", "c")
s = s.Replace("c", "d")
s = s.Replace("d", "e")
s = s.Replace("e", "f")
s = s.Replace("f", "g")
s = s.Replace("g", "h")
s = s.Replace("h", "i")
s = s.Replace("i", "j")
s = s.Replace("j", "k")
s = s.Replace("k", "l")
s = s.Replace("l", "m")
s = s.Replace("m", "n")
s = s.Replace("n", "o")
s = s.Replace("o", "p")
s = s.Replace("p", "q")
s = s.Replace("q", "r")
s = s.Replace("r", "s")
s = s.Replace("s", "t")
s = s.Replace("t", "u")
s = s.Replace("u", "v")
s = s.Replace("v", "w")
s = s.Replace("w", "x")
s = s.Replace("x", "y")
s = s.Replace("y", "z")
s = s.Replace("z", "a")
End Sub

Je ne vois pas d'ou viens l'erreur ...

Je travaille avec VB 6.0