falls es jemand mal dennoch brauch:
public sub int2byte (byval aValue as integer)
Dim aValueLow As Integer
Dim aValueHigh As Integer
Dim Vorzeichen
If aValue And &H8000 Then
aValue = 32768 + aValue
Vorzeichen = &H80
Else : Vorzeichen = 0
End If
aValueLow = aValue Mod 256
aValueHigh = aValue \ 256
end sub