VBA（Outlook）でユーザー入力待ちの状態を作り出すためのコード

ユーザーフォームにリストボックスを３つ表示させ（リストボックス１、リストボックス２、リストボックス３とする）
ユーザーの選択を待って、１つ作成したコマンドボタンをクリックすると処理を行いたいと思っています。

コマンドボタンを押下してもリストボックス１のアイテム０（最上部のアイテム）が選択された時もしくは同ボックス内で何も選択されなかった場合には特定のメッセージを表示して入力待ち状態に戻したいと思います。
If文でUserForm_InitializeやCommandButton1_Clickを実行するようにしても無限ループに陥ってしまいます。
どのような記述をすれば上記全てを満たせるようなコードになるのでしょう？