vbSunday〜vbSaturdayを使うと
dayIndex = dayIndex + 1
が
Select Case dayIndex
Case VbDayOfWeek.vbSunday
　　dayIndex = VbDayOfWeek.vbMonday
Case VbDayOfWeek.vbMonday
　　dayIndex = VbDayOfWeek.vbTuesday
(以下略)
しないとだめなのかよ。こりゃめんどくさい。