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

4 votes328 views1 answer
Excel formula for last non-empty cell in a column
VBA
0 vote359 views1 answer
Enable macros on opening workbook vba
VBA
4 votes362 views1 answer
Vba create directory
VBA
0 vote372 views1 answer
Add text to Shape VBA
VBA
20 votes499 views1 answer
Excel vba recursive example factorial function
VBA
8 votes521 views1 answer
Excel vba make word from bytes
VBA
1 vote347 views1 answer
Change the first item in a queue vb.net
VBA
0 vote307 views1 answer
Excel vba linter
VBA
0 vote349 views1 answer
Remove frist letter from string vbnet
VBA
0 vote357 views1 answer
Vba get application version
VBA