Public Class clsJoin
 
    Public Sub Main()
 
 
        '****************************************************************************************
        ' Purpose:  Returns a string created by joining a number of substrings contained in an array.
        '
        ' Syntax: 	Join(SourceArray(), Delimiter)
        '
        ' Parameter1: SourceArray - One-dimensional array containing substrings to be joined.
        '
        ' Parameter2: Delimiter - Optional. Any string, used to separate 
        ' the substrings in the returned string. If omitted, the space 
        ' character (" ") is used. If Delimiter is a zero-length string 
        ' ("") or Nothing, all items in the list are concatenated 
        ' with no delimiters.
        '
        ' Result: string - Returns a string created by joining a number of 
        ' substrings contained in an array.
        '
        ' Quick Example:  Dim arrayJoinExample() As String = {"Apples", "Oranges", "Strawberries"}
        ' Console.WriteLine(Join(arrayJoinExample, "!")) 'Returns Apples!Oranges!Strawberries
        '
        '****************************************************************************************
 
 
        Console.WriteLine("Example #1: 	Join(String(), String) ")
 
        Dim arrayJoinExample() As String = {"Apples", "Oranges", "Strawberries"}
 
        Console.WriteLine(Join(arrayJoinExample, "!")) 'Returns Apples!Oranges!Strawberries
 
        '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 myclsJoin As New clsJoin
        myclsJoin.Main()
 
 
 
    End Sub
 
End Module