This will export a custom keyword field into an Excel spreadsheet.

Private Sub cmdExportContacts_Click()
'Goto Contacts Folder

Dim oOLapp As Outlook.Application
Dim oSalesFldrs As Outlook.MAPIFolder

Dim oXLapp As Excel.Application
Dim oXLBook As Excel.Workbook

Dim i As Integer
Dim iRow As Integer
Dim j As Integer

Set oOLapp = GetObject(, "Outlook.Application")
Set oSalesFldrs = oOLapp.GetNamespace("MAPI").Folders("Sales
Folders").Folders("Sales Contacts")

Set oXLapp = CreateObject("Excel.Application")
oXLapp.Visible = True
Set oXLBook = oXLapp.Workbooks.Add()

' For Each Item In oSalesFldrs
iRow = 0
For i = 1 To oSalesFldrs.Items.Count
With oSalesFldrs.Items(i)
iRow = i + 1
j = 1
oXLBook.Sheets(1).Cells(iRow, j) = .FirstName
j = j + 1
oXLBook.Sheets(1).Cells(iRow, j) = .LastName
j = j + 1
oXLBook.Sheets(1).Cells(iRow, j) = .BusinessAddress
j = j + 1
oXLBook.Sheets(1).Cells(iRow, j) =
fcPropToStr(.UserProperties.Find("Account Executive").Value)
j = j + 1
oXLBook.Sheets(1).Cells(iRow, j) =
fcPropToStr(.UserProperties.Find("Custom Category").Value)
End With
Next i
End Sub

Private Function fcPropToStr(varProp As Variant) As String
Dim cOutStr As String
Dim i As Integer
Dim cDelim As String

cDelim = ";"
If IsArray(varProp) Then
i = LBound(varProp)
While (i <= UBound(varProp))
If (i = LBound(varProp)) Then
cOutStr = CStr(varProp(i))
Else
cOutStr = cOutStr & cDelim & CStr(varProp(i))
End If
i = i + 1
Wend
Else
cOutStr = CStr(varProp)
End If

fcPropToStr = cOutStr
End Function