Добавление элементов в словарь

Sub Собрать()
  Dim dicAdres 'переменная для словоря
  Dim keyStrit As Variant 'переменная для ключа улицы
  Dim itmHouse As Variant 'переменная для номера дома
  a = ActiveSheet.UsedRange
  'b = ActiveSheet.UsedRange.Columns(1)
  Set dicAdres = CreateObject("Scripting.Dictionary")
  With Sheets("Set")
    For i = 2 To UBound(a)
      keyStrit = CStr(.Cells(i, 1).Value) 'получаем ключ с названием улицы
      itmHouse = CStr(.Cells(i, 2).Value) 'получаем значение с номером дома
      If dicAdres.Exists(keyStrit) Then 'Вот тут по идее нужно проверить словарь на наличие полученного ключа и если есть добавить туда_
      'значение с номером дома. Проблема в том что я не знабю как это описать програмно
      
    Next i
  End With
  
 
End Sub

For i = 2 To UBound(a)
  keyStrit = CStr(.Cells(i, 1).Value) 'получаем ключ с названием улицы
  dicAdres(keyStrit) = dicAdres(keyStrit) & ", " & CStr(.Cells(i, 2).Value) 'добавляем значение с номером дома
Next i

Z = dicAdres.Count 'Определяем количесвто шагов
Z = Z - 1
For n = 0 To Z 'циклом перебираем словаря вставляя сначала ключ затем его значения
m = dicAdres.Keys()(n)
g = dicAdres.Item(m)
Range("C2") = Range("C2") & ", " & m & " " & g
Next n