VBA script to post/update/delete calendar items into sharepoint calendar

[promoboy]

I am looking for a script to post/update/delete items into a sharepoint calendar.

I found a working script to make new lists on sharepoint but my knowledge of vba is not big enough to work on a solution to let it work on a calender list.

Public Sub PushSPList()
Dim lname As String, guid As String
Dim arr, arrr
Dim NewList As ListObject
Dim L As ListObjects
' Get the collection of lists for the active sheet
    Set L = ThisWorkbook.ActiveSheet.ListObjects
    ' Add a new list
If MsgBox("Have you selected the new data?", vbYesNo) = vbNo Then
Exit Sub
    Else
        If MsgBox("New?", vbYesNo) = vbYes Then
            lname = InputBox("What is the name of your new list?")
            Set NewList = L.Add(xlSrcRange, Selection, , xlYes, True)
            NewList.Name = lname
            ' Publish it to a SharePoint site
            NewList.Publish Array("https://*****", lname), False
        Else
arr = getSPitems
lname = arr(2)
            guid = arr(1)
            Set NewList = L(1)
Set arrr = Selection
            Call addSPListItem(arrr, lname, guid)
        End If
    End If
    End Sub
    Sub addSPListItem(rar As Variant, lnme, guid)
    Dim arr, lguid As String, spurl As String, lname As String, uitem As Object
    lguid = guid
    lname = lnme
    spurl = "https://******"
    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset 'tb
    Dim mySQL As String
    Set cnt = New ADODB.Connection
    Set rst = New ADODB.Recordset
    mySQL = "SELECT * FROM [" & lname & "];"
    With cnt
.ConnectionString = _
"Provider=Microsoft.ACE.OLEDB.12.0;WSS;IMEX=0;RetrieveIds=Yes;" & _
"DATABASE=" & spurl & _
";LIST=" & lguid & ";"
.Open
    End With
    rst.Open mySQL, cnt, adOpenDynamic, adLockOptimistic

Dim fld As Object
Dim arrr()
i = -1
For Each fld In rst.Fields
i = i + 1
ReDim Preserve arrr(0 To i)
    arrr(i) = rst.Fields(i).Name
    Next
    Dim clmns
    clmns = Split(InputBox("Select columns, separated by commas, no spaces after commas...    " & Join(arrr, ", ")), ",")
    Dim Colmns As Object
Set Colmns = CreateObject("Scripting.Dictionary")
For i = 0 To UBound(clmns)
Colmns(i) = clmns(i)
    Next
    jj = 1
Do While rar(jj, 1) ""
rst.AddNew
For kk = 0 To UBound(clmns)
rst.Fields(Colmns(kk)) = rar(jj, kk + 1)
Next
jj = jj + 1
Loop
    rst.Update
    If CBool(rst.State And adStateOpen) = True Then rst.Close
Set rst = Nothing
If CBool(cnt.State And adStateOpen) = True Then cnt.Close
Set cnt = Nothing
MsgBox "Done"
    End Sub

Can this code be updated to use for adding/updating/deleting calender items?