Dim Mot As Integer 'un Integer en VB6 vaut 2 octets. Dim HiPart As Byte, LoPart As Byte Dim S As String HiPart = Mot And &HFF00 LoPart = Mot And &H00FF S = "Mot=" & Mot & vbCrlf S = S & "PartieHaute=" & HiPart & vbCrlf S = S & "PartieBasse=" & LoPart S = S & "PartieHaute*256+PartieBasse=" & HiPart*256+LoPart