たとえば Date 型なのであれば Dim t As Date = Today If yourArrayList.OfType(Of Date)().Any(Function(d) d < t) Then '★ End If もしくは Dim t As Date = Today Dim past() As Date = yourArrayList.OfType(Of Date)().Where(Function(d) d < t).ToArray() If past.Length > 0 Then '★ End If あるいはループ判定で Dim t As Date = Today Dim hasPast As Boolean = False For Each d As Date In yourArrayList If d < t Then hasPast = True Exit For End If Next If hasPast Then '★ End If のように書けます。