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)
svalor = "hola"
Catch oExcep As System.InvalidCastException
Console.WriteLine(oExcep.ToString())
Console.WriteLine("fin")
end try
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc1ZhbG9yIEFzIFN0cmluZwoJCVRyeQoJCQlDb25zb2xlLldyaXRlTGluZSgiSW50cm9kdWNpciB1biBuw7ptZXJvIikKCQkJJ3NWYWxvciA9IENvbnNvbGUuUmVhZExpbmUoKQoJCQknQ29uc29sZS5Xcml0ZUxpbmUoIkVsIHZhbG9yIGVzICIgJiBzVmFsb3IpCgkJCXN2YWxvciA9ICJob2xhIgoJCQlDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCgkJCQoJCQkJQ29uc29sZS5Xcml0ZUxpbmUob0V4Y2VwLlRvU3RyaW5nKCkpCgkJCQlDb25zb2xlLldyaXRlTGluZSgiZmluIikKCQllbmQgdHJ5CglFbmQgU3ViCkVuZCBDbGFzcw==