Console App : Use Swith Function to Check the Entered Character is Numeric Or String

Module Module1

    Sub Main()
        Dim str As String
        Dim Bool As Boolean
        Console.WriteLine("Enter Value :")
        str = Console.ReadLine()
        bool = Microsoft.VisualBasic.Switch(IsNumeric(str), True, Not IsNumeric(str), False)
        If Bool Then
            Console.WriteLine("Number Entered")
        Else
            Console.WriteLine("Character Entered")
        End If
        Console.ReadLine()
    End Sub

End Module