Public Function ExplodeChars(ByVal Exp As String, Optional ByVal sChar As Char = " ", Optional ByVal bLast As Boolean = False) As String
Dim Result As String = String.Empty
If Exp.Length > 0 Then
Dim Buffer As New System.Text.StringBuilder()
For i As Integer = 0 To Exp.Length - 1
Buffer.Append(String.Concat(Exp.Chars(i), sChar))
Next i
Result = Buffer.ToString
Buffer.Length = 0
If Not bLast Then Result = Result.Substring(0, Result.Length - 1)
End If
Return Result
End Function