Public Const CountLimit As Integer

Dim value As Integer

value = SPChangeCollection.CountLimit

public const int CountLimit

Imports System
Imports Microsoft.SharePoint

Module ConsoleApp
   Sub Main()
      Using siteCollection As SPSite = New SPSite("http://localhost")

         Dim total As Long = 0
         Dim token As SPChangeToken = Nothing

         While True

            Dim changes As SPChangeCollection = siteCollection.GetChanges(token)

            total += changes.Count

            ' Break out of the loop when we fetch the last batch of changes
            If changes.Count < SPChangeCollection.CountLimit Then
               Exit While
            End If

            ' Go get another batch of changes starting where we left off
            token = changes.LastChangeToken

         End While

         Console.WriteLine("{0:#,#} changes", total)

      End Using

      Console.Write(vbCrLf + "Press ENTER to continue...")
      Console.ReadLine()

   End Sub
End Module

using System;
using Microsoft.SharePoint;

namespace Test
{
   class ConsoleApp
   {
      static void Main(string[] args)
      {
         using (SPSite siteCollection = new SPSite("http://localhost"))
         {
            long total = 0;
            SPChangeToken token = null;

            while (true)
            {
               SPChangeCollection changes = siteCollection.GetChanges(token);

               total += changes.Count;

               // Break out of loop if we have the last batch
               if (changes.Count < SPChangeCollection.CountLimit)
                  break;

               // Otherwise, go get another batch
               token = changes.LastChangeToken;
            }

            Console.WriteLine("{0:#,#} changes", total);
         }
         Console.Write("\nPress ENTER to continue...");
         Console.ReadLine();
      }
   }
}