Добавление элементов в словарь - VBA/Excel

Формулировка задачи:

Доброго всем времени суток. И снова нужна помощь мастеров в освоении VBA. есть два столбца в одном столбце название улицы в другом номер дома по этой улице. выглядит примерно так: Ленина | 1 Ленина | 2 Ленина | 3 Комсомольска |45 Комсомольская | 98 И т.д. задача сделать сделать так: Ленина 1, 2, 3 Комсомольская 45, 98 Пытаюсь написать макрос где использую словарь. в качестве ключа использую улицу в качестве значения номер дома. Но не могу проверить ключь на совпадение и присвоить ему второе значение. Код прилагаю. Буду благодарен если кто чего подскажет. Цель сделать макрос рабочим и получить опыт в VBA. Спасибо всем за участие.

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

Решение задачи: «Добавление элементов в словарь»

textual
                            Листинг программы 
                        

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