Public Class clsSplit
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose: Parses a string into a one-dimensional array of one or more
        ' substrings. If the delimiter is not specified, space is used.
        ' If the limit is not specified, all substrings are returned
        '
        ' Syntax: 	 Split(string[, delimiter][, limit])
        '
        ' Parameter1: string - Required - string input that you want to parse into
        ' a one-dimensional array using a delimiter and a limit
        '
        ' Parameter2: delimiter - Optional - string delimiter that specifies
        ' what separates the fields contained within the input string.  If
        ' no delimiter is given, space is used.
        '
        ' Parameter3: limit - Optional - integer specifying maximum number of
        ' fields to return to the one-dimensional array.  If no limit is specified,
        ' all substrings are returned.
        '
        ' Result: string() -  Returns a one-dimensional string array that contains all
        ' of the substrings that were returned from the input string.
        '
        ' Quick Example:     Dim strField As String = "This"
        ' Console.WriteLine("[" + LTrim(strField) + Space(5) + "]") 'Returns [This     ] with leading spaces removed
        '
        '****************************************************************************************
 
        '****************************************************************************************
        ' Example #1: Dim strField As String = "This is my string"
        ' Dim aryStrings As Array
        ' aryStrings = Split(strField)
        ' For i = 0 To aryStrings.Length - 1
        '    Console.WriteLine(aryStrings(i))
        ' Next
        '****************************************************************************************
 
        Console.WriteLine("Example #1: Split(string[, delimiter][, limit])")
 
        Dim strField As String = "This is my string"
        Dim aryStrings As Array
 
        aryStrings = Split(strField)
 
        For i = 0 To aryStrings.Length - 1
            Console.WriteLine(aryStrings(i))
        Next
 
 
        '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 myclsSplit As New clsSplit
        myclsSplit.Main()
 
 
 
    End Sub
 
End Module