Update Taskdescription via VBA - Error -2147483638 - the data required for this operation are not ye

Hello!

I develop an integration of planner tasks into an internal access database and there I will create a task with a important description.

The creation works fine, but when I update the taskdetails and there the description I get the error -2147483638 - the data required for this operation are not yet.

If I go stepwise through the code all works fine, but not in processing my whole code. I think that the task descriptions is not accessible that early so I have to put my code to sleep, just I can't find anything about "How long do I have to put my code to sleep?" or exists any other reason for that?

Update: 

First I have set Sleep 10000 for 10 seconds pause of the code and second here a screenshot in german with the error message, because the 10 seconds don't helps.

My VBA-Code to Update is the following. This function is a part of my class "Teams"

Public Function UpdateTaskDescription(pstr_ID As String, pstr_Description As String) As Boolean

On Error GoTo Err_UpdateTaskDescription

    Dim GraphAPI As New MSXML2.XMLHTTP60
    Dim str_URL As String
    Dim str_Body As String
    Dim str_ETag As String
    Dim JSON As Object
    
    str_URL = "https://graph.microsoft.com/v1.0/planner/tasks/" & pstr_ID & "/details"
    
wiederholung:
    
    str_ETag = GetETagByDetails(pstr_ID)
    
    With GraphAPI
    
        .Open "PATCH", str_URL, True
        .setRequestHeader "Content-Type", "application/json"
        .setRequestHeader "Authorization", GetAuthentication
        '.setRequestHeader "Prefer", "return=representation"        Kann mit angegeben werden, wenn das gesamte Objekt zurückkommen soll. So kommt nur 204 - No content => success
        .setRequestHeader "If-Match", str_ETag
        
        str_Body = "{" & vbNewLine
        str_Body = str_Body & Chr(34) & "description" & Chr(34) & " : " & Chr(34) & pstr_Description & Chr(34) & vbNewLine
        str_Body = str_Body & "}"
        
        .Send str_Body
    
    End With
    
    UpdateTaskDescription = GraphAPI.Status
    
Err_UpdateTaskDescription:
    If Err.Number = -2147483638 Then
        GraphAPI.abort
        GoTo wiederholung
    Else
        MsgBox Err.Number & " > " & Err.Description
    End If

End Function

Thanks in advance.
Axel