IntMulti

Public Function LoByte(ByVal IntegerVal As Integer) As Byte
LoByte = IntegerVal And &HFF&
End Function

Public Function HiByte(ByVal IntegerVal As Integer) As Byte
If IntegerVal = 0 Then highbyte = 0: Exit Function
HiByte = IntegerVal \ &H100 And &HFF&
End Function

Public Function LoWord(ByVal LongVal As Long) As Integer
LoWord = LongVal And &HFFFF&
End Function

Public Function HiWord(ByVal LongVal As Long) As Integer
If LongVal = 0 Then HiWord = 0: Exit Function
HiWord = LongVal \ &H10000 And &HFFFF&
End Function