Changing Outlook calendar using VB

I have written a program using VB6 that puts items into the default Outlook calendar. One of my colleagues has now suggested that it would be better if it put them into a seperate Outlook calendar (within the same Outlook account) so that we can keep them seperate from the main departmental events. Having searched lots of forums, I am still no nearer a solution. Can anybody help please?

Welcome to the Forums :)

I have tons of code on these forums for Outlook. Try a search by my username and outlook. :)

You will want to use the Folders collection of the calendar MAPI Folder object and check if the sub calendar exists or not. If it doesnt then create it.

VB Code:

Option Explicit
'Add a reference to MS Outlook xx.0 Object Library
Private Sub Form_Load()
    Dim oApp As Outlook.Application
    Dim oCalendar As Outlook.MAPIFolder
    Dim oSubCalendar As Outlook.MAPIFolder
    Set oApp = New Outlook.Application
    Set oCalendar = oApp.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar)
    If TypeName(oCalendar.Folders.Item("Sub Calendar")) = "Nothing" Then
        Set oSubCalendar = oCalendar.Folders.Add("Sub Calendar", olFolderCalendar)
    Else
        Set oSubCalendar = oCalendar.Folders.Item("Sub Calendar")
    End If
    '...
    '...
End Sub