добавление нов. элемент в Items в Outlook без указания типа

[namomelkor]

создаю массив
Dim FItem(1000) As ContactItem
добавляю в него элемент

kit = kit + 1
Set FItem(kit) = FindFolderIt.parent.Items.Add
Set FItem(kit) = FindFolderIt.parent.Items.Item(j)

все отлично работает
но нужно сделать так чтобы можно было добавлять элементы разных типов т.е без указания ContactItem или другого типа итемсов.
Как это можно реализовать?

[Krasnaja Shapka]

Dim FItem(1000) As Variant ?

[namomelkor]

нет

[Чудовище под кроватью]

namomelkor
Dim FItem(1000) As Object?
Убрать Option Explicit и не объявлять?

[namomelkor]

нашел
Dim FItem(1000) As ItemProperties
и дальше работаем с items как со свойствами
Set FItem(kit) = FindFolderIt.parent.Items.Item(i).ItemProperties

но всерну корявенько т.к приходится до свойства добиратся след образом
For ttt = 0 To FItem(kit).Count - 1
If FItem(kit).Item(ttt).Name = "Body" Then
FItem(kit).Item(ttt).Value = "Поменяли body"
End If
Next ttt