リストボックスが空の時の処理

Question

印刷ボタン押下時にリストボックスが空の時は「×」、リストボックスに値が入っていた場合に処理の最後に「◯」のメッセージを出したいのですがどうすればよいでしょうか？

Private Sub btn_FilePrintOut()
  Dim wb As Variant
  Dim Fn As Variant,i As Long

With Me.Listbox1
   For i = 0 To .ListCount - 1
   Set wb = Workbooks.Open(.List(i,1)&.List(i,0),)

wb.PrintOut
wb.Close

Next i

End with
End Sub

よろしくお願い致します

Answer 1

つまり

もし .ListCount が０より大きければ「○」を出す
そうでなければ「ｘ」を出す

ということなので

If .ListCount が０より大きければ Then
  MsgBox "○"
Else
　MsgBox "ｘ"
End If

です