gistfile1.md

Set projects_dict = CreateObject("Scripting.Dictionary")

// ... get a projekt-name, store it in 'key'

If Not projects_dict.Exists(key) Then
  projects_dict.Add key, CreateObject("Scripting.Dictionary")
End If

If projects_dict.Item(key).Exists(month) Then
  projects_dict.Item(key).Item(month) = projects_dict.Item(key).Item(month) + value
Else
  projects_dict.Item(key).Add month, value
End If

... at the end of the program
Set projects_dict = Nothing