Private Sub optInbox_Click()
Dim MyInboxArray()
Count = -1
Dim objItem As Object' Will encounter problems if object is not a email item, so must specify as an object
Dim objFolder As MAPIFolder
Dim objNS As NameSpace
Set objNS = Application.GetNamespace("MAPI")

' Load combobox with Inbox Emails
Set objFolder = objNS.GetDefaultFolder(olFolderInbox)
For Each objItem In objFolder.Items
    If objItem.Class = olMail Then
        Count = Count + 1
        ReDim Preserve MyInboxArray(2, Count)
        MyInboxArray(0, Count) = objItem.Subject
        MyInboxArray(1, Count) = objItem.SenderName
    MyInboxArray(2, Count) = objItem.SentOn
    End If
Next
If Count > -1 Then
    lstEmailItem.Column = MyInboxArray()
Else
    lstEmailItem.Clear
End If
End Sub