Sorry about that, this will be easier to read:
Sub AppSubsystemOwnersBtn_OnClick(eventObj)
Dim I
Dim strRecip
Dim Owners
'On Error Resume Next
strDialogCaption = ''Select '' & strUDFieldName
Set objCDO = CreateObject(''MAPI.Session'')
'Piggyback on existing Outlook session
objCDO.Logon '''', '''', False, ...