finding even or odd

 Dim j As Integer
        Console.WriteLine("please enter a values")
        j = Console.ReadLine


        If j Mod 2 = 0 Then
            Console.WriteLine("even")
        Else
            Console.WriteLine("odd")
        End If

        Console.ReadLine()