Работа со словарём в экселе (VBA)

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

Добрый день, Товарищи
Хочу сделать словарь в котором значение является массивом:
А потом вывести этот массив, заполнить так сказать нужные ячейки элементами массива.
Так заполняет первым элементом массива только эту ячейку
Вопрос, как заполнить 2 соседние ячейки ?
Что-то типа
TargetRange.Offset(0, 5).Value = Dic.Item(SourceRange.Value)[1]
TargetRange.Offset(0, 6).Value = Dic.Item(SourceRange.Value)[2]
Спасибо!

Решение задачи: «Работа со словарём в экселе (VBA)»

textual
                            Листинг программы 
                        
                            TargetRange.Offset(0, 5).Value = Dic.Item(SourceRange.Value)(0)
TargetRange.Offset(0, 6).Value = Dic.Item(SourceRange.Value)(1)