Our new private downloader workin even better than before.

The Excel StringDecompress(str, n) function working like a charm.

__________

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

__________