Public Function SAL(ByVal a As Long, ByVal n As Byte) As Long
    SAL = a * (2 ^ (n Mod 32))
End Function
 
Public Function SAR(ByVal a As Long, ByVal n As Byte) As Long
    SAR = a \ (2 ^ (n Mod 32))
End Function