Sub TestNestedDictArray()
Dim str1 As String: str1 = "01|02"
Dim str2 As String: str2 = "01|02|03"
Dim coll As Collection
Set coll = New Collection
coll.Add str1
coll.Add str2
' RESULT should be
' list = {
' "Values": {
' "SP_V1" = ("01", "01", "")
' "SP_V2" = ("02", "02", "")
' "SP_V3" = ("", "", "03")
' }
' }
Dim list As Scripting.Dictionary
Set list = New Scripting.Dictionary
Dim longest As Long
longest = 3 ' from all strX longest split