Take a string array and split each element on the passed delimiter, then pass back all the results as a string array.
The string array to split
Don't add empty elements to the array (if the string is empty, the array will be memberless)
Add the delimiter back to the front of the array element (so we can tell which delimiter was used)
The splitting delimiter
1 2 3 4 5 6 | Dim m_arr() As String ReDim m_arr(2) As String m_arr(1) = "1+1" m_arr(2) = "3+6" m_arr = xf.str.SplitArray(m_arr, False , False , "+" ) => m_arr = ( "1" , "1" , "3" , "6" ) m_arr = xf.str.SplitArray(m_arr, False , True , "+" ) => m_arr = ( "1" , "+1" , "3" , "+6" ) |