Shift the bits of a variable right.
Syntax: Shr(var,bits)
var
Required. Variable or value to shift
bits
Required. Number of bits to shift
Example:
Dim a As uLong, b As uLong b=16 a=Shl(b,1) ' a is now 8
Also See: Shl, Roll, Rolr