excelvba make long from two shorts code example

Example: excel vba make long from two shorts

Public Function MakeLong&(ByVal LoWord%, ByVal HiWord%)
    MakeLong = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function