>How do I convert a Long To a Single?
>
>Thaks

Is this what you are looking for?

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