Entendendo o operador >> (Right Shift)

Module Module1
  Sub Main()
    Dim valor As Integer = 10 'binário: 1010

    'vamos mover os bits duas posições para a direita
    'o resultado será 0010
    Dim valor2 As Integer = valor >> 2

    Console.WriteLine(valor2)

    Console.ReadKey()
  End Sub
End Module

Module Module1
  Sub Main()
    Dim valor As Integer = -100

    'vamos mover os bits três posições para a direita
    'o resultado será -13
    Dim valor2 As Integer = valor >> 3

    Console.WriteLine(valor2)

    Console.WriteLine()
    Console.WriteLine("Pressione uma tecla para sair...")
    Console.ReadKey()
  End Sub
End Module