Private Function ShiftLeft(ByVal Value As Long, Shift As Integer) As
Long
    ShiftLeft = (Value * (2 ^ Shift))
End Function