VBA: Variable Daten an die Post Method vermitteln

[AccessVBA]

Hallo Forum
Ich versuche gerade mithilfe der Google Calendar API meine Access Daten an den Kalender weiterzugeben.
Der Code für die Einbindung steht schon und funktioniert auch.

Code [Auswählen] Erweitern



Private Sub Command5_Click()
'Neues Event hinzufügen
    Me.Text0 = Null
    Dim Method As String, content As String, Body As String, addAuth As Boolean, URL As String
    Dim a As Long, JsonArray() As String, JSonText As String
                 
    If CheckToken = False Then DoCmd.OpenForm "Browser"
   
    Method = "POST"
    ' v3/calendars/-- primary --/events     primary = Kalender-ID für Termin Eintragung
    URL = "https://www.googleapis.com/calendar/v3/calendars/primary/events"
    content = "application/json"

    Body = "{""start"":{""dateTime"":""2018-12-11T14:30:00"",""timeZone"":""Europe/Berlin""},""end"":{""dateTime"":""2018-12-11T17:30:00"",""timeZone"":""Europe/Berlin""},""colorId"":""11"",""summary"":""API Test Kalender hinzufügen"",""description"":""Beschreibung Test"",""location"": ""Ortsangabe""}"

    addAuth = True
   
    SendHTTP URL, Method, content, Body, addAuth
     
JSonText = JsonParse(HTTP_ResponseText)
Me.Text0 = JSonText

JsonArray() = SplitTo2DArray(JSonText, vbNewLine, ";")
For a = LBound(JsonArray) To UBound(JsonArray)
    Debug.Print a, JsonArray(a, 1), JsonArray(a, 2)
Next a
End Sub


Gerade wichtig ist aber eigentlich nur Zeile 13 in der die relevanten Daten mit dem Body abgesendet werden. 

Nun liegt mein Problem darin, dass Angaben (in Z.13) wie Summary (also "API Test Kalender hinzufügen") , Description ( "Beschreibung Test") und Location ("Ortsangabe") variabel sind und damit an den Inhalt einer Textbox gebunden werden sollen.
Hat jemand einen Vorschlag wie ich am besten die TextBox Inhalte in die Body Zeile integrieren kann?

Vielen Dank schon mal im Voraus!
LG

[markusxy]

Die Frage ist also, wie bindet man eine Variable in einen String ein.

"Text" & Variable & "Folgetext"

oder

"Text" & Textbox.Text & "Folgetext"

Das doppelte Hochkomma zeigt immer an: Hier endet ein Text, außer das Hochkomma wird durch ein weiters maskiert.
Dann wird in den Text ein doppeltes Hochkomma eingefügt.

[AccessVBA]

Ahh Ok Super!
Die ganzen Hochkommas hatten mich ganz schön durcheinander gebracht.
Dankeschön!