Well, here's what we're usin'.

____________________________________________________________________________________________________

Function StringDecompress(str As String, n As Integer) As String

  On Error GoTo exitfunction

  Dim temp As String
  Dim c, i, j, strlen As Integer
  Dim nums() As Long: ReDim nums(n)

  strlen = Len(Mid(str, 2))

  temp = ""
  For i = 0 To strlen - 1
    temp = temp & Mid(str, strlen - i + 1, 1)
  Next i

  strlen = Application.WorksheetFunction.RoundUp(strlen / 2, 0)

  If (n < 2) Or (n < strlen) Then GoTo exitfunction

  For i = 0 To strlen - 1
    nums(n - 1 - i) = Val(Mid(temp, 2 * i + 2, 1) & Mid(temp, 2 * i + 1, 1))
  Next i

  c = 0
  i = 0
  For j = (n - strlen) To (n - 1)
    If c < (n - strlen) Then
      If nums(j) <= 9 Then
        nums(i) = nums(j)
        i = i + 1
      Else
        nums(i) = Int(nums(j) / 10)
        nums(i + 1) = nums(j) - (10 * nums(i))
        i = i + 2
        c = c + 1
      End If
    End If
  Next j

  temp = ""
  For i = 0 To n - 1
    temp = temp & Format(nums(i), "00 ")
  Next i

  StringDecompress = temp

Exit Function

exitfunction:

  StringDecompress = "Error"

End Function

____________________________________________________________________________________________________

The data pasted into Excel must be of a format that has a single non-numeric character at the beginning of each set of compressed numbers.

In this case, we used the middot '·' character, but it can be anything other than '-', '+' or a natural space hex code 20 or escape code \x20.

This causes Excel to treat the string of numbers as a string and prevents Excel from trying to convert the string of numbers into an actual number in Excel.

The usage is =StringDecpompress(str, n), where str is the cell containing the compressed string of numbers and n is the pick size of the desired separated number set.

Below is an example where n = 5: