bonjour,

je vous fait partager ce bout de code qui fonctionne pour le framework 2 et supérieur.

Dim lobj_list() As Byte
Dim a As System.Text.Encoding = System.Text.Encoding.GetEncodi ng(850)
lobj_list = a.GetBytes(TextBox1.Text)
MsgBox(lobj_list(0))
le code 850 correspond à l'europe de l'ouest
la page de codes sur cette page : http://msdn.microsoft.com/fr-fr/libr....encoding.aspx