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 = 4
Catch oExcep As System.InvalidCastException
Console.WriteLine(oExcep.ToString())
end try
End Sub
End Class
SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKCQlEaW0gc1ZhbG9yIEFzIFN0cmluZwoJCVRyeQoJCQlDb25zb2xlLldyaXRlTGluZSgiSW50cm9kdWNpciB1biBuw7ptZXJvIikKCQkJJ3NWYWxvciA9IENvbnNvbGUuUmVhZExpbmUoKQoJCQknQ29uc29sZS5Xcml0ZUxpbmUoIkVsIHZhbG9yIGVzICIgJiBzVmFsb3IpCgkJCXN2YWxvciA9IDQKCQkJQ2F0Y2ggb0V4Y2VwIEFzIFN5c3RlbS5JbnZhbGlkQ2FzdEV4Y2VwdGlvbgoJCQkKCQkJCUNvbnNvbGUuV3JpdGVMaW5lKG9FeGNlcC5Ub1N0cmluZygpKQoJCWVuZCB0cnkKCUVuZCBTdWIKRW5kIENsYXNz