Option Explicit
Sub ASCII_to_TEXT()
MsgBox Chr(98) & Chr(111) & Chr(110) & Chr(106) & Chr(111) & Chr(117) & Chr(114) & Chr(32) & Chr(224) & Chr(32) & Chr(116) & Chr(111) & Chr(117) & Chr(115)
End Sub
Sub TEXT_to_ASCII()
Dim i As Integer
Dim LaPhrase As String, CodeASCII As String
LaPhrase = InputBox("La Phrase", "Titre", "bonjour à tous")
For i = 1 To Len(LaPhrase)
CodeASCII = CodeASCII & "Chr(" & Asc(Mid(LaPhrase, i, 1)) & ") & "
Next i
MsgBox Left(CodeASCII, Len(CodeASCII) - 2)
End Sub