Function Sint (value as Long) as Integer
   
   Sint = (value AND &H7FFF)

   If (value > 32767) Then
     Sint = (Sint OR &H8000)
   End If

Exit Function

Sint(18445681309896863050)