Imports System
Public Class MainClass
Shared Sub Main()
Dim letters As String = "abcdefghijklmabcdefghijklm"
Dim quotes As Char = ChrW(34)
Console.WriteLine("invoke SubString method and pass it one parameter")
Console.WriteLine("Substring from index 20 to end is " & _
quotes & letters.Substring(20) & quotes )
Console.WriteLine("invoke SubString method and pass it two parameters")
Console.WriteLine("Substring from index 0 to 6 is " & _
quotes & letters.Substring(0, 6) & quotes)
End Sub ' Main
End Class