' "Explode" a string by inserting a given filling character' between consecutive characters in the original string'' The source string cannot contain Chr$(0) charactersFunction ExplodeString(ByVal Source As String, Optional ByVal fillChar As Char = _    " "c) As String    Dim i As Integer    Dim sb As New Text.StringBuilder(Source.Length * 2)    ' exit if no character    If Source Is Nothing OrElse Source.Length = 0 Then Return ""    ' inserts the first char     sb.Append(Source.Chars(0))    ' insert the filling char before each character    For i = 1 To Source.Length - 1        sb.Append(fillChar)        sb.Append(Source.Chars(i))    Next    Return sb.ToStringEnd Function