Imports System
 
Public Class Test
	Public Shared Sub Main()
Dim sLetras() As String = {"a", "b", "c", "d"}
Dim sNuevaLetra As String
Dim iPosicion As Integer
Try
Console.WriteLine("Introducir una letra")
sNuevaLetra = "F"
iPosicion = 4
sLetras(iPosicion) = sNuevaLetra
Console.WriteLine("Se ha modificado la letra del array")
Catch oExcep As System.InvalidCastException
Console.WriteLine("*******")
 
Console.WriteLine(oExcep.ToString())
Console.WriteLine("*******")
 
 
end try
	End Sub
End Class

SW1wb3J0cyBTeXN0ZW0KClB1YmxpYyBDbGFzcyBUZXN0CglQdWJsaWMgU2hhcmVkIFN1YiBNYWluKCkKRGltIHNMZXRyYXMoKSBBcyBTdHJpbmcgPSB7ImEiLCAiYiIsICJjIiwgImQifQpEaW0gc051ZXZhTGV0cmEgQXMgU3RyaW5nCkRpbSBpUG9zaWNpb24gQXMgSW50ZWdlcgpUcnkKQ29uc29sZS5Xcml0ZUxpbmUoIkludHJvZHVjaXIgdW5hIGxldHJhIikKc051ZXZhTGV0cmEgPSAiRiIKaVBvc2ljaW9uID0gNApzTGV0cmFzKGlQb3NpY2lvbikgPSBzTnVldmFMZXRyYQpDb25zb2xlLldyaXRlTGluZSgiU2UgaGEgbW9kaWZpY2FkbyBsYSBsZXRyYSBkZWwgYXJyYXkiKQpDYXRjaCBvRXhjZXAgQXMgU3lzdGVtLkludmFsaWRDYXN0RXhjZXB0aW9uCkNvbnNvbGUuV3JpdGVMaW5lKCIqKioqKioqIikKCkNvbnNvbGUuV3JpdGVMaW5lKG9FeGNlcC5Ub1N0cmluZygpKQpDb25zb2xlLldyaXRlTGluZSgiKioqKioqKiIpCgoKZW5kIHRyeQoJRW5kIFN1YgpFbmQgQ2xhc3M=