Imports System
Public Class Test
Public Shared Sub Main()
Dim sValor As String
Try
Console.WriteLine("Introducir un número")
sValor = Console.ReadLine()
Console.WriteLine("El valor es " & sValor)
Catch oExcep As System.InvalidCastException
Console.WriteLine(oExcep.ToString())
end try
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc1ZhbG9yIEFzIFN0cmluZwoJCVRyeQoJCQlDb25zb2xlLldyaXRlTGluZSgiSW50cm9kdWNpciB1biBuw7ptZXJvIikKCQkJc1ZhbG9yID0gQ29uc29sZS5SZWFkTGluZSgpCgkJCUNvbnNvbGUuV3JpdGVMaW5lKCJFbCB2YWxvciBlcyAiICYgc1ZhbG9yKQoJCQlDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCgkJCQlDb25zb2xlLldyaXRlTGluZShvRXhjZXAuVG9TdHJpbmcoKSkKCQllbmQgdHJ5CglFbmQgU3ViCkVuZCBDbGFzcw==