【Outlook VBA】ユーザ定義フィールドの最大値(最小値)を見つける

Outlookのユーザ定義フィールドから最大値を取得したかったのですが、標準関数がありませんでした。降順に並び替え、先頭の情報を取ろうとしても、データが並び変わらない様子です。さいわいフィルタは働くので、複数回フィルタを掛けることで最大値(最小値)を取得する方法を共有します。