lave et array og sortere på dato

Hvordan laver man et array med mit indhold i, og sortere dette på dato ? umildtbart kunne jeg forstille mig man skal samle ("Dato: " & objItem.Start & " Møde: " & objItem.Subject & " Varighed: " & objItem.Duration)

i en streng, men hvordan kommer man så evt vidre? så alt bliver samlet i et array or sorteret på dato ?

----------------------------------------------------------------
Const olFolderCalendar = 9

            Set objOutlook = CreateObject("Outlook.application")
            Set Application = CreateObject("Outlook.application")

            Set myNameSpace = Application.GetNameSpace("MAPI")

Set objOutlook = CreateObject("Outlook.Application")
Set objNamespace = objOutlook.GetNamespace("MAPI")
Set myRecipient = myNameSpace.CreateRecipient("IT-Mødelokale It-afdelingen")
Set objFolder = objNameSpace.GetSharedDefaultFolder(myRecipient, 9)

Set colItems = objFolder.Items


   
Set fso = CreateObject("Scripting.FileSystemObject")

Set fl = fso.OpenTextFile("C:\Temp\myfilename.txt", 2, True)
fl.Write(strOutput)

             


For Each objItem In colItems
    Set objPattern = objItem.GetRecurrencePattern
    If objPattern.PatternEndDate > Now Then
        fl.Write("Dato: " & objItem.Start & " Møde: " & objItem.Subject & " Varighed: " & objItem.Duration)
        fl.WriteBlankLines(1)
       

    End If
Next
fl.Close : Set fl = Nothing
Set fso = Nothing

-----------------------------------------------------------------