C# と VB.NET の質問掲示板

＜環境＞
　VisualStudio2013（Community）
　Windows8.1

はじめまして。
少し相談させてください。

スケジュールが決められた日替わり定食があったとします。
これを毎日12時更新で表示させたいのですが、アプリ起動時の日時から判断し
ルーチンをスタートする方法がわかりません。

例：
　11/26　かつ丼
　11/27　焼きさんま
　11/28　餃子
　11/29　オムライス
　11/31　生姜焼き
　12/01　パスタ
　12/02　かつ丼
　 　　・
　 　　・
　　 　・

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label1.Text = Today & " " & TimeString

        Dim a() As String = {"かつ丼", "焼きさんま", "餃子", "オムライス", "生姜焼き", "パスタ"}
        Dim b As Integer
        Dim i As Integer = -1

        For i = 0 To 5
            If a(i).ToString() = Label2.Text Then Exit For
        Next
        If i < 5 Then b = i + 1

        If TimeString = "12:00:00" Then
            Label2.Text = a(b).ToString()
        End If

    End Sub


こんな感じで12時更新の日替わり表示させてみたもの、これでは起動日時がいつであれ
「かつ丼」から始まってしまう為、考え方そのものが違うのでは？　と躓いてます。

どの様な解決方法がありますでしょうか。
宜しくお願いします。

できましたっ・・・　と思います。
すみません　遅くなってしまって。

なんとなく期待通りの動きをするっぽいんですが
すごくコレジャナイ感でして。。。


提供開始日を2014/11/20とした時（26日スタートは検証できなかったので）

　2014/11/20　"かつ丼"
　2014/11/21　"焼きさんま"
　2014/11/22　"餃子"
　2014/11/23　"オムライス"
　2014/11/24　"生姜焼き"
　2014/11/25　"パスタ"
　2014/11/26　"かつ丼"
　2014/11/27　"焼きさんま"


Public Class Form1

    Dim a() As String = {"かつ丼", "焼きさんま", "餃子", "オムライス", "生姜焼き", "パスタ"}
    Dim b As Integer
    Dim i As Integer = -1

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Label1.Text = Today & " " & TimeString

        b = DateDiff("d", "2014/11/20", DateTime.Today)
        i = b Mod 6

        If TimeString = "12:00:00" Then
            Label2.Text = a(i).ToString()
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim c As Integer

        b = DateDiff("d", "2014/11/20", DateTime.Today)
        i = b Mod 6
        c = i - 1

        If TimeString < "12:00:00" Then
            Label2.Text = a(c).ToString()
        ElseIf TimeString >= "12:00:00" Then
            Label2.Text = a(i).ToString()
        End If

    End Sub
    
End Class


アプリ起動が12時前だと前日のメニューを、12時以降だと
本日のメニューを表示させるところでずっと悩んでまして、
Private Sub Form1_Load に入れてみたところ期待通りの
表示になりました。（と思います。。。）

しかし、なんだかスマートさに欠けると言うかコレジャナイ感が
思い切りでてると言うか。。。
できましたら　もう少し綺麗な記述をご教示いただけると
とても助かります。

宜しくお願いします。