How to use the CDOEX Library to create an Outlook Calendar folder in Visual Basic .NET

Module Module1

    Sub Main()
        'strFolderType    Name
        '
        'MailItems        IPF.Note
        'ContactItems     IPF.Contact
        'AppointmentItems IPF.Appointment
        'NoteItems        IPF.StickyNote
        'TaskItems        IPF.Task
        'JournalItems     IPF.Journal

        Dim sType as String = "IPF.Appointment"

        Dim oCn As ADODB.Connection = New ADODB.Connection()
        Dim oRc As ADODB.Record = New ADODB.Record()

        Dim oFields As ADODB.Fields
        Dim oField As ADODB.Field

        Dim sFolderTypeProperty As String
        sFolderTypeProperty = "http://schemas.microsoft.com/exchange/outlookfolderclass"

        ' TODO: Replace with your new folder URL
        Dim sFdUrl As String
        sFdUrl = "http://<ExchServer>/Exchange/<UserAlias>/Inbox/NewFolder"
        oCn.Provider = "exoledb.datasource"

        oCn.Open(sFdUrl, "", "", 0)
        If oCn.State = 1 Then
            Console.WriteLine("Good Connection")
        Else
            Console.WriteLine("Bad Connection")
            Return
        End If

        oRc.Open(sFdUrl, oCn, _
         ADODB.ConnectModeEnum.adModeReadWrite, _
         ADODB.RecordCreateOptionsEnum.adCreateCollection, _
         ADODB.RecordOpenOptionsEnum.adOpenSource, _
         "", "")  ' adOpenAsync is not supported	

        If oRc.State = ADODB.ObjectStateEnum.adStateOpen Then
            Console.WriteLine("Record Open Success")
        Else
            Console.WriteLine("Record Open Fails")
            Return
        End If

        ' Add Folder type
        oFields = oRc.Fields
        oField = oFields.Item(sFolderTypeProperty)
        oField.Value = sType

        oFields.Update()

        oRc.Close()
        oCn.Close()

        oCn = Nothing
        oRc = Nothing
        oFields = Nothing
        oField = Nothing
    End Sub

End Module