HighWord (Long)

You can use the HighWord attribute to query the value of the top 16 bits of the variable.

Syntax
HighWord
Return value
Type	Description
Long	The value of the upper 16 bits of the variable
Parameter
None
Note
The attribut is read-only.

Example:

Dim L As Long

L := 65538

MsgBox(L.HighWord)

The output is 1.