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

1 vote148 views1 answer
Highlight selected cell in excel vba
VBA
0 vote152 views1 answer
How to mount floppy disks in vb.net
VBA
0 vote149 views1 answer
Remove last 8 characters from string vb
VBA
0 vote172 views1 answer
How to enter Vbox manage commands
VBA
0 vote139 views1 answer
Afficher un message d'erreur vba
VBA
1 vote151 views1 answer
Set font for ms chart vb.net
VBA
0 vote166 views1 answer
Tester si une case est vide vba
VBA
0 vote149 views1 answer
Excel vba saveas no prompt for overwrite
VBA
0 vote165 views1 answer
Vba search string position
VBA
0 vote163 views1 answer
Excel vba paste all to each sheet in workbook
VBA