Script what Am I doing wrong

[alphatech]

I'm trying to cycle thru the list of devices and if any of these conditions are right, then check to see if time is great then .... How do I write this statement?

For Each hs.getDeviceByRef(Nothing) As Integer In ListOfDevices

       Dim ListOfDevices() As Integer = {215, 246, 509}

    '215 - Category: Sprinkler - Acual Rain Prior 1 Day
    '216 - Category: Sprinkler - Average Wind for 20 Min 

        Try
            Dim dv As Scheduler.Classes.DeviceClass
            Dim EN As Scheduler.Classes.clsDeviceEnumeration
            EN = hs.GetDeviceEnumerator
            If EN Is Nothing Then
                hs.WriteLog("BatteryReport", "Error getting Enumerator")
                Exit Sub
            End If

            Do
                dv = EN.GetNext
                If dv Is Nothing Then Continue Do

    '        For Each Device As Integer In ListOfDevices
            For Each hs.getDeviceByRef(Nothing) As Integer In ListOfDevices
                        'If InStr(UCase(dv.Device_Type_String(Nothing)), "BATTERY") > 1 Then



    If hs.DeviceTime(Device) > 1440 Then


                 ReDim Preserve myArray(UBound(myArray) + 1)
                    myArray(UBound(myArray) - 1) = New BatteryDevice
                    myArray(UBound(myArray) - 1).refID = ("[" & dv.Ref(Nothing).ToString & "]")
                    myArray(UBound(myArray) - 1).devValue = (dv.devValue(Nothing).ToString & " ").PadLeft(7)
                    myArray(UBound(myArray) - 1).devName = dv.Location2(Nothing) & " " & dv.Location(Nothing) & " " & dv.Name(Nothing)
                    myArray(UBound(myArray) - 1).lastChange = dv.Last_Change(Nothing).ToString

'                End If
         End If
        Next

        Loop Until EN.Finished