Google Calendar API от vb.net вернуть пустой список

Question

Я создал простую vb.net функцию, которая читает события календаря Google .

Я использую аутентификацию с сервисной учетной записью и для чтения моего спискаподелился календарем с адресом служебной учетной записи.

Но когда я выполняю свою функцию, список становится пустым!

Код:

Public Sub ReadCalendarEvents()
    Dim _googleSecretJsonFilePath As String
    Dim _applicationName As String
    Dim _scopes As String()

    '----- set up credential tokens -------------------
    _googleSecretJsonFilePath = "my json file path"
    _applicationName = "TEST CALENDAR"
    _scopes = {CalendarService.Scope.CalendarEventsReadonly}

    Dim credential As GoogleCredential
    Using stream As New FileStream(_googleSecretJsonFilePath, FileMode.Open, FileAccess.ReadWrite)
        credential = GoogleCredential.FromStream(stream).CreateScoped(_scopes)
    End Using

    Dim objBaseClientServiceInitializer As New BaseClientService.Initializer()
    objBaseClientServiceInitializer.HttpClientInitializer = credential
    objBaseClientServiceInitializer.ApplicationName = _applicationName

    dim m_CalendarEventsService As New CalendarService
    m_CalendarEventsService = New CalendarService(objBaseClientServiceInitializer)

    Dim objEventsRequest As EventsResource.ListRequest
    Dim lstEvents As New Events

    objEventsRequest = m_CalendarEventsService.Events.List("primary")

    With objEventsRequest
        .MaxResults = 10
        .ShowDeleted = False
        .OrderBy = EventsResource.ListRequest.OrderByEnum.StartTime
        .SingleEvents = True
        .TimeMin = Now
        lstEvents = .Execute()
    End With


End Sub

Что не так?