Excel VBA で曜日の文字で回るループを作成する

自分用の覚書。Const では配列 Array を用いることができないので、文字列をデリミタ(ここではカンマ)で区切って、Split() で配列に分解する。Dictionary オブジェクトで連想配列を作って曜日で参照する For Each ループを作成した。サンプルコード

Const sList曜日 As String = "月,火,水,木,金"
Sub test(dic as Object)
    Dim v曜日 As Variant
    For Each v曜日 In Split(sList曜日, ",")
        MsgBox dic.Item(v曜日)
    Next v
End Sub