シート数を調べるには SheetCountプロパティを使います。
最後のシートをアクティブシートにする時や、シートの削除時にあらかじめシート数を調べておくなど様々な場面で使います。

      Dim xlsCr As New ExcelCreator.XlsCreator
      Dim Msg As String = ""
      Dim MsgTitle As String = ""
      Dim FileName As String = "c:\シートサンプル.xls"

      Try
          'ファイルの存在チェック
          If Not System.IO.File.Exists(FileName) Then
              Msg = "指定のファイルがありません.."
              MsgTitle = "ファイルを確認して下さい"
              MessageBox.Show(Msg, MsgTitle, MessageBoxButtons.OK, MessageBoxIcon.Information)
              Exit Try
          End If

          'ExcelFileを開く
          If xlsCr.ReadBook(FileName) > -1 Then

             'シート数を調べて表示します
              Dim SheetCount As Integer = xlsCr.SheetCount
              Console.WriteLine("シート数は" & SheetCount.ToString & "です")

              'ファイルを閉じます
              xlsCr.CloseBook(False)
          Else
              Msg = "指定のExcelファイルが読めません.."
              MsgTitle = "ファイルを確認して下さい"
              MessageBox.Show(Msg, MsgTitle, MessageBoxButtons.OK, MessageBoxIcon.Information)
          End If

      Catch ex As Exception
          Throw ex
      Finally
          xlsCr.Dispose()
      End Try