Handle glossaries for Deepl with Curlsmbs

[Beatrix_Willius]

@Marius_Dieter_Noetzel

Dim d As New CURLSMBS
d.OptionURL = "https://api-free.deepl.com/v2/glossaries"
d.OptionPost = True
d.CollectOutputData = True

Dim h() sa string
h.add("Authorization: DeepL-Auth-Key xxxxxxxxxxxxx:fx")
h.add("Content-Type: application/x-www-form-urlencoded")

d.SetOptionHTTPHeader(h)

Dim p() As String
p.Add("name=My%20Glossary")
p.add("source_lang=en")
p.add("target_lang=de")
p.add("entries=Hello%09Guten%20Tag")
p.add("entries_format=tsv")
d.OptionPostFields = Join(p, "&")

Dim e As Integer = d.Perform
Dim temp As String = d.OutputData

Great. That works. How do I add multiple entries?