B4R Question how to free memory and stack ?

Public Sub Send_Save_Log
    If Main.InternetConnected = False Then Return
    
    Dim json1 As String = JoinStrings(Array As String("{""action"":""savearray"",""scanner"":""", Main.bc.HexFromBytes(others.MacArray), QUOTE))
    Dim json2 As String = JoinStrings(Array As String(",""key"":""", API_KEY, QUOTE))
    Dim tz As String = others.TimeZone * 1000
    Dim json3 As String = JoinStrings(Array As String(",""timestamp"":", tz))
    Dim json4 As String = JoinStrings(Array As String(",""dbtable"":""logs"",""data"":{""0"":{""scanner_name"":""", Main.bc.HexFromBytes(others.MacArray), QUOTE))
    Dim json5 As String = JoinStrings(Array As String(",""time"":""", tz, QUOTE))
    Dim json6 As String = JoinStrings(Array As String(",""stamp"":""", tz, QUOTE))
    Dim json7 As String = JoinStrings(Array As String(",""text"":""", others.Collect_Info, QUOTE))
    Dim json8 As String = JoinStrings(Array As String(",""type"":""", "0", QUOTE, "}}}"))
    Dim text As String = JoinStrings(Array As String(json1, json2, json3, json4, json5, json6, json7, json8))
    
    Log("text = ", text)
    HttpJob.Initialize("API_SAVE_logs")
    HttpJob.AddHeader("Content-Type", "application/json;charset=UTF-8")
    HttpJob.Post(URL, text)
End Sub