Dropbox API

Have tried one of your examples for uploading larger files, getting on error on this line

updated = CType(ChunkUpload((filePath + ("/" + fileName)), fs, ChunkSize, dbx), Task(Of FileMetadata))

Additional information: Unable to cast object of type 'System.Threading.Tasks.Task`1[System.Threading.Tasks.VoidTaskResult]' to type 'System.Threading.Tasks.Task`1[Dropbox.Api.Files.FileMetadata]'.

it relatesd to the function below, which is cast as a task

Private Async Function ChunkUpload(ByVal path As String, ByVal stream As FileStream, ByVal chunkSize As Integer, dbx As DropboxClient) As Task
        Dim numChunks As Integer = CType(Math.Ceiling((CType(stream.Length, Double) / chunkSize)), Integer)
        Dim buffer() As Byte = New Byte((chunkSize) - 1) {}
        Dim sessionId As String = Nothing
        Dim idx = 0
        Do While (idx < numChunks)
            Dim byteRead = stream.Read(buffer, 0, chunkSize)
            Dim memStream = New MemoryStream(buffer, 0, byteRead)
            If (idx = 0) Then
                Dim result = dbx.Files.UploadSessionStartAsync(False, memStream)
                sessionId = CType(result.Id, String)
            Else
                Dim cursor = New UploadSessionCursor(sessionId, CType((chunkSize * idx), System.UInt64))
                If (idx _
                            = (numChunks - 1)) Then
                    Dim fileMetadata As FileMetadata = Await dbx.Files.UploadSessionFinishAsync(cursor, New CommitInfo(path), memStream)
                    Console.WriteLine(fileMetadata.PathDisplay)
                Else
                    Await dbx.Files.UploadSessionAppendV2Async(cursor, False, memStream)
                End If

            End If

            idx = (idx + 1)
        Loop

    End Function

Can you give any advice