Las operaciones de desplazamiento de bits << y >> de C no están implementadas en Visual Basic. Sin embargo, se pueden desarrollar un par de funciones de forma sencilla que nos permitan obtener esta funcionalidad.

Para desplazar 1 bit a la izquierda hay que multiplicar por 2, para desplazar 2 bits a la izquierda hay que multiplicar por 4 y así sucesivamente.

Para desplazar 1 bit a la derecha hay que dividir por 2, para desplazar 2 bits a la derecha hay que dividir por 4 y, así sucesivamente.

A continuación, se muestra la implementación de las funciones aplicando el algoritmo anteriormente descrito:

Function LShift(iVariable As Integer, iNumbits As Integer) As Integer
    LShift = iVariable * (2 ^ iNumbits)
End Function

Function RShift(iVariable As Integer, iNumbits As Integer) As Integer
    RShift = iVariable \ (2 ^ iNumbits)
End Function