Excel VBA преобразовать 2 коротких целых числа в длительное целое число
Public Function MakeLong&(ByVal LoWord%, ByVal HiWord%)
MakeLong = (HiWord * &H10000) Or (LoWord And &HFFFF&)
End Function
Excel Hero