'Officeアシスタントを表示します
Assistant.Visible = True

'バルーンの表示内容を設定します
With Assistant.NewBalloon
  '電球のアイコンを表示
  .Icon = msoIconTip
  'メッセージのタイトル
  .Heading = "保存の確認"
  '各選択肢を設定
  .Labels(1).Text = "保存してから終了します。"
  .Labels(2).Text = "保存せずに終了します。"
  .Labels(3).Text = "編集を継続します。"
  'ボタンは表示しません
  .Button = msoButtonSetNone

  'バルーンを表示し、返り値をチェックします
  Select Case .Show
    Case 1
      MsgBox "[保存してから終了]が選択されました！"
    Case 2
      MsgBox "[保存せずに終了]が選択されました！"
    Case 3
      MsgBox "[編集を継続]が選択されました！"
  End Select

End With

'Officeアシスタントを非表示にします
Assistant.Visible = False