Hi,
Looking at this code, this is the only subroutine that's performing a ReDim of arrunplannedDowntime to anything other than (4,1)
Sub CalculatePlannedDowntime(eventDetails)
'If LogEvents Then Out.Log "I:Planned downtime event="& eventDetails.Dump
PlannedDowntime = PlannedDowntime + Tools.NetTime(eventDetails.Value("StartDate"),eventDetails.value("EndDate"))/60
rowp = Ubound(arrunplannedDowntime,2)
colp = Ubound(arrunplannedDowntime,2)
arrplannedDowntime(1,colp)= eventDetails.Value("ServiceName")
arrplannedDowntime(2,colp)= ConvertToDate(eventDetails.Value("StartDate"))
arrplannedDowntime(3,colp)= ConvertToDate(eventDetails.Value("EndDate"))
arrplannedDowntime(0,colp)= eventDetails.Value("TicketNo")
ReDim preserve arrplannedDowntime(4,colp+1)
End Sub
Since this is also the area of the code that's failing, some additional output to out.log may be useful here; I'd recommend uncommenting that second line.