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.