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

0 vote161 views1 answer
Excel vba open browser
VBA
0 vote132 views1 answer
Vba code to remove leading and trailing spaces
VBA
0 vote177 views1 answer
Vbnet check if sting contians symbols
VBA
3 votes191 views1 answer
Excel insert blank row for value change in column
VBA
5 votes201 views2 answers
Excel vba write to the windows registry
VBA
0 vote185 views1 answer
Thread sleep vb
VBA
0 vote175 views1 answer
Make all controls in an area not visable vb
VBA
0 vote187 views1 answer
Excel vba StartUpPosition
VBA
0 vote209 views1 answer
Visual basic cmd
VBA
0 vote180 views1 answer
Hello world vb.net
VBA