Comment copiez le msgbox dans vba

bonjour mes amis veuillez m'aider à copiez le message box dans vba car ce code me permet de crypter un texte

Sub cryptage()
Dim texteorigin As String
Dim textecrypt As String
Dim lettreorigin As String
Dim lettrecrypt As String
Dim chiffreorigin As Integer
Dim chiffrecrypt As Integer
Dim cle As Integer
Dim longeur, i As Long
texteorigin = InputBox("entrez un texte")
cle = InputBox("entrez la cle")
longeur = Len(texteorigin)
For i = 1 To longeur
lettreorigin = Mid(texteorigin, i, 1)
chiffreorigin = Asc(lettreorigin)
chiffrecrypt = chiffreorigin + cle
lettrecrypt = Chr(chiffrecrypt)
textecrypt = textecrypt & lettrecrypt
Next i
MsgBox textecrypt
End Sub