ToDelimitedString

''' <summary>
''' Returns a delimited string from the list.
''' </summary>
''' <param name="ls"></param>
''' <param name="delimiter"></param>
''' <returns></returns>
''' <remarks>
''' </remarks>
<Extension()> _
Public Function ToDelimitedString(ByVal ls As List(Of String), ByVal delimiter As String) As String
Dim sb As New StringBuilder
For Each buf As String In ls
sb.Append(buf)
sb.Append(delimiter)
Next
' The final delimiter is trimmed off since there is no record after that item
Return sb.ToString.Trim(delimiter)
End Function