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 votes273 views2 answers
Excel vba last column with data
VBA
0 vote306 views1 answer
Excel vba convert cells address
VBA
0 vote270 views1 answer
Vbnet make a string to unicode converter
VBA
0 vote255 views1 answer
Do until vb.net
VBA
0 vote246 views1 answer
Vba dropdown event
VBA
3 votes274 views2 answers
Excel "vba" match last value
VBA
1 vote267 views1 answer
Excel vba get ordinal number from cardinal number
VBA
0 vote269 views1 answer
Internet explorer reference vba
VBA
9 votes377 views2 answers
Excel vba convert 2 Short integers to a Long integer
VBA
0 vote292 views1 answer
Vba search string position
VBA