Réponse acceptée !
bien sur que oui qu'on les  retrouve
cliquer une fois pour crypter, une deuxième fois pour décrypter.
les seuls nombres à conserver sont les nombres en rouge


Dim Texte As String

Private Sub Form_Load()
    Texte = "Chaine à crypter"
End Sub

Private Sub Command1_Click()
    Dim i As Integer
   
    Rnd -123
    Randomize 456
   
    For i = 1 To Len(Texte)
        Mid$(Texte, i, 1) = Chr$(Asc(Mid$(Texte, i, 1)) Xor (Rnd * 255))
        Next
    MsgBox Texte

End Sub


Daniel