Событие не создано в календаре o365

Question

Я пытаюсь добавить событие в календарь o365. Событие создается только при мониторинге трафика с помощью Fiddler. Когда я отключаю мониторинг, ничего не происходит.

При проверке трафика с помощью Fiddler, запрос отправляется ОК. При использовании отладчика и пошаговом выполнении кода также создается событие. При запуске приложения ничего не происходит. Кажется, что функция ожидания не ожидает завершения ....

Public Shared Sub AppModeRequests()
callAddMyevent()
End Sub

        Public Shared Async Sub callAddMyevent()
            Dim blnresult As Boolean = Await AddMyEvent()
        End Sub

        Private Shared Async Function AddMyEvent() As Task(Of Boolean)
            Dim myEvent As New Microsoft.Graph.Event
            Dim myLocation As New Microsoft.Graph.Location
            Dim myItemBody As New Microsoft.Graph.ItemBody
            Dim myStartTime As New DateTimeTimeZone
            Dim myStopTime As New DateTimeTimeZone

            myLocation.DisplayName = "Testlocation"
            myStartTime.DateTime = "2019-05-14T12:00:00"
            myStartTime.TimeZone = "Europe/Paris"
            myStopTime.DateTime = "2019-05-14T13:00:00"
            myStopTime.TimeZone = "Europe/Paris"
            myItemBody.ContentType = BodyType.Text
            myItemBody.Content = "bodycontent"
            With myEvent
                .Subject = "testsubject"
                .Location = myLocation
                .Start = myStartTime
                .End = myStopTime
                .Body = myItemBody
            End With

            Dim createdevent As [Event] = Await client.Users("yves.gijbels@gaits.be").Calendars(Constants.CalendarClaudia).Events.Request().AddAsync(myEvent)

            If createdevent IsNot Nothing Then
                Return True
            Else
                Return False
            End If

        End Function

Сообщения об ошибках не генерируются. Что не так?