Split cell contents in different sets

[Pete2020]

I am looking for a Excel Formula or function or VBA which is simple to understand. The actual data is Text and not a Numeric values

The cell contents is to be divided into different sets with flower brackets and a comma separator.
It should separate the data equally based on values in available based on "|" delimiter

Ex: Column A Row 1 ( Full range has around 10k Rows)
1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|20|

After Applying formula or VBA code - The values shoule be equally divided and if not divisible it should fall under another curly bracket

In Column B Row1 the data should present with curly Brackets based on groups i mentioned in VBA or formula
{1|2|3|4|5},{6|7|8|9|10},{11|12|13|14|15},{16|17|18|19|20}

 

[DanteAmor]

Here the shortest macro:

In this line you can set the number of elements for each group
If j Mod 5 = 0 Then

Sub splitCell()
  Dim a As Variant, b As Variant, c As String
  Dim i As Long, j As Long, sItems As Variant
  a = Range("A1", Range("A" & Rows.Count).End(3)).Value2
  ReDim b(1 To UBound(a), 1 To 1)
  '
  For i = 1 To UBound(a)
    sItems = Split(a(i, 1), "|")
    c = "{"
    For j = 0 To UBound(sItems) - 1
      If j Mod 5 = 0 Then c = Left(c, Len(c) - 1) & "},{"
      c = c & sItems(j) & "|"
    Next
    b(i, 1) = Mid(c, 3, Len(c) - 3) & "}"
  Next
  '
  Range("B1").Resize(UBound(a)).Value = b
End Sub