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