使用 API v3.0 在 MailChimp 中创建和添加新段

问：

我创建了一个新段，但现在我不知道如何将其发送到mailchimp平台，我拥有的代码是：

Public Shared Async Function MailchimpSendTemplate() As Task 

    Dim manager As IMailChimpManager = New MailChimpManager("xxxxxxxxxxxxxxa4fcb4654d6af-usxx") 'mykey
    Dim listId = "a4ac9d66b4"

    Dim segementoToCampaign As New Segment() With {
                .Name = "test1",
                .Options = New SegmentOptions() With {
                    .Match = Match.All,
                    .Conditions = New List(Of Condition) From {
                        New Condition With {
                        .Field = "tag_name",
                        .[Operator] = [Operator].Is,
                        .Value = "novotest"}
                    }
                }
        }
        ´´this dont work     
        Dim createdSegment As Segment = manager.ListSegments.AddAsync(listId, segementoToCampaign)
   End Function