' "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
![Outage Reddit](https://www.devx.com/wp-content/uploads/Outage-Reddit-300x171.jpg)