Help to adjust code for nested dictionary to array

Hi Guys!

Could you help me to adjust my code (to speed it up) for printing a nested dictionary to the worksheet?
Creation of the nested dictionary (from https://stackoverflow.com/questions/...ted-dictionary)

Please Login or Register  to view this content.

and the code to print the dictionary to the worksheet (from https://stackoverflow.com/questions/...heet-using-vba)

Please Login or Register  to view this content.

However, the second code writes the dictionary immediately to the sheet, which is very slow.
Therefore I'd like the function "printtoWS" to return a result array.
But the function is written in such a way that it calls itself, so it does not store the result array.

Thanks in advance!