That dialog isn't exposed to the object model, so you'd have to simulate a
user clicking the menu buttons or ribbon controls to open the dialog,
depending on what version of Outlook you're talking about.

For Outlook 2003 or earlier you can get the Options button in an Inspector
using:

Dim oButton As Office.CommandBarButton
Set oButton = Inspector.CommandBars("Menu Bar").FindControl(Id:=5598,
Recursive:=True)
If Not (oButton Is Nothing) Then
   oButton.Execute
End If

You'd have to trap the Inspectors.NewInspector event and in that event
instantiate an Inspector object declared WithEvents. Then you'd need to
handle the Inspector.Activate event and call the code I showed in the first
Inspector.Activate event that fired for that Inspector.

You wouldn't really have any way of knowing what the user entered in that
dialog however, except by monitoring individual properties of the
Inspector.CurrentItem for the Item.PropertyChange() event.