Imports System

Module ShiftOperatorsA

    Sub Main()
        Dim a1 As Double = 200.93
        a1 = a1 >> 109.95
        Console.WriteLine(a1)

    End Sub

End Module