Public Function fillzakazcombo()

    Dim Contact As Outlook.ContactItem, tmpContact As String
    tmpContact = zakazchikbox
    Call zakazchikbox.clear
    For Each Contact In getContactsFolder("Организации").items
        With Contact
                Call zakazchikbox.AddItem(.CompanyName)
        End With
    Next Contact
    On Error Resume Next
        zakazchikbox = tmpContact
    On Error GoTo  0 

End Function


и новый алтернативный этому - мне интересно мнение форумчан - выиграю ли я так время и намного ли ?? стоит ли это того ?? ( верхний код взят с msdn а второй сделан мною )

Public Function fillzakazcombo()

Dim Contact As Outlook.ContactItem, tmpContact As String
tmpContact = zakazchikbox
Call zakazchikbox.clear

Dim MyArray() As String
Dim n As Integer

n = getContactsFolder("Организации").items.Count
ReDim MyArray(n)

Dim i As Integer


For Each Contact In getContactsFolder("Организации").items
With Contact
MyArray(i) = .CompanyName
i = i +  1 
End With
Next Contact

zakazchikbox.List = MyArray

zakazchikbox = tmpContact
On Error GoTo  0 

End Function