¿Hoy está entre dos fechas?: calendario celta

[Bravenap]

Muy buenas. Estoy intentando automatizar una etiqueta de modo que muestre el mes del calendario celta en el que nos encontremos. Cada mes celta no corresponde con los meses normales sino que se encuentra entre dos fechas concretas. De momento he hecho esto para VB:

Código:

Dim mesesCeltas() As String = {"Abedul", "Serval", "Fresno", "Aliso", "Sauce", "Espino", "Roble", "Acebo", "Avellano", "Madreselva", "Hiedra", "Carrizo", "Saúco"}
'Fechas en las que empieza cada mes celta
Dim intervalosCeltas() As String = {"24/12", "21/01", "18/02", "18/03", "15/04", "13/05", "10/06", "08/07", "05/08", "01/09", "30/09", "28/10", "25/11"}
Dim hoy As Date = Today
'Añadimos el año a las fechas
For i = 0 To intervalosCeltas.Length - 1
   intervalosCeltas(i) += "/" & hoy.Year
Next 

Ahora, cómo podría saber si hoy está entre la fecha i y la fecha i+1 del vector intervalosCeltas().

Y otra cosilla: ¿sería mejor que utilizase hashtable en lugar de dos vectores?

Gracias y feliz año.