Public Class clsSubstring
 
    Public Sub Main()
 
        '****************************************************************************************
        ' Purpose: Returns the string that starts at the specified position and has the specified
        ' length. If the length is not specified, all of the characters to the end are returned. 
        '
        ' Syntax: 	inputString.Substring(startIndex[, length])
        '
        ' Parameter1: inputString - Required - string that you want to get
        ' a part of.
        '
        ' Parameter2: startIndex - Optional. specifies where to start. Zero-based.
        '
        ' Parameter3: length - Optional. specifies how many characters to 
        ' to return past start. If no length is specified, rest of string
        ' is returned.
        '
        ' Result: string -  Returns the string that starts at the 
        ' specified position and has the specified
        ' length. If the length is not specified, 
        ' all of the characters to the end are returned.
        '
        ' Quick Example:       Dim strSubstringExample As String = "This is a test string"
        '  Console.WriteLine(strSubstringExample.Substring(0,4)) 'Returns This
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: Substring(startIndex[, length])
        ' Returns the string that starts at the specified position and has the specified
        ' length. If the length is not specified, all of the characters to the end are returned.
        '****************************************************************************************
 
        Console.WriteLine("Example #1: Substring(startIndex[, length]) ")
 
        Dim strSubstringExample As String = "This is a test string"
        Dim intIndexSubstring As Integer = 0
 
        ' First find position of word test
        intIndexSubstring = strSubstringExample.IndexOf("test")
 
        ' Get everything starting at "test" to end of string
        Console.WriteLine(strSubstringExample.Substring(intIndexSubstring))
 
        'write blank line to make output easier to read
        Console.WriteLine()
 
        'Prevent console from closing before you press enter
        Console.ReadLine()
 
    End Sub
 
 
End Class

Module Module1
 
    Sub Main()
 
 
        Dim myclsSubstring As New clsSubstring
        myclsSubstring.Main()
 
 
 
    End Sub
 
End Module