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

3 votes284 views1 answer
Excel vba export sheet as a csv without losing focus of my current workbook
VBA
0 vote292 views1 answer
String contins in vba
VBA
0 vote275 views1 answer
Vba pass named range to function
VBA
0 vote291 views1 answer
Thread sleep vb
VBA
0 vote313 views3 answers
Write to text file vb.net
VBA
0 vote305 views1 answer
Excel filter by date not working vba
VBA
5 votes316 views1 answer
Excel vba tool to help with refactoring code
VBA
0 vote302 views1 answer
Vba cell all borders
VBA
5 votes352 views1 answer
Excel vba last byte from INTEGER
VBA
0 vote305 views1 answer
Vba parameter adodb null value
VBA