Problem, oprettelse og sletning af møder i outlook fra Vbscript.

Jeg sidder og laver et lille system hvor en Asp side skal kalde en fil med vbscript som så skal redigere i nogle møder ovre i outlook, jeg kan sagtens oprette møder.. også slette.. men indimellem for jeg en fejl i mit vbscript at "Matriksindekset er uden for området." på følgende linie:

Set objAppt = objItems.Item(intX)

som står i følgende sammenhæng:

    For intX = 1 To objItems.Count
        Set objAppt = objItems.Item(intX)
        Set TraceIDProperty =  objAppt.UserProperties.Find("CRMID")
        If TypeName(TraceIDProperty) <> "Nothing" Then
            If TraceIDProperty.Value = id Then               
                objAppt.Delete           
            End If
        End If       
    Next

Er der nogen der kan give nogle hints til hvad det er der går galt, og hvad jeg kan gøre for at løse det. På forhånd tak.