Console application to check Even or Odd Number

Module Module1

    Sub Main()
        Dim str As String, i As Integer
        Console.WriteLine("Enter a Number :")
        str = Console.ReadLine()
        If IsNumeric(str) Then
            i = CInt(str)
            If str Mod 2 = 0 Then
                Console.WriteLine("Even number")
            Else
                Console.WriteLine("Odd number")
            End If
        Else
            Console.WriteLine(str & " is not a Number.")
        End If
        Console.ReadLine()
    End Sub

End Module