Vba low word from Long Integer

'If n is a 4-byte Long Integer, the Low (Left) Word is:
If n And &H8000& Then
  	LoWord = n Or &HFFFF0000
Else
    LoWord = n And &HFFFF&
End If

'If n is a 4-byte Long Integer, the High (Right) Word is:
HiWord = (n And &HFFFF0000) \ &H10000

Source: academy.excelhero.com

Similar codes

5 votes135 views1 answer
Excel formula how to create strings containing double quotes
VBA
0 vote149 views1 answer
Excel vba named range exists
VBA
0 vote131 views1 answer
Vb net show lines for all axis labels in chart
VBA
0 vote166 views1 answer
Vba foreach 2d array
VBA
0 vote135 views1 answer
Vba run command
VBA
2 votes131 views1 answer
Date format for ms chart vb.net
VBA
0 vote128 views1 answer
Vba text to general
VBA
0 vote143 views1 answer
Dlete rows with blanks and space " " vba
VBA
3 votes147 views1 answer
Vba double quote
VBA
12 votes248 views1 answer
Excel vba write string to text file
VBA