public class Test
public Shared Sub Main
Dim strCaption As String
strCaption = "Answer"
Try
Console.WriteLine(strCaption.Substring(10, 1))
Catch
Console.WriteLine("An error has occurred.")
End Try
End Sub
End class
An error has occurred.