ちなみに曜日名を得たい場合には、WeekdayName 関数を使う方法のほか、
　Dim dt As Date = Today
　MsgBox(dt.ToString("ddd"))
　MsgBox(dt.ToString("dddd"))
のように、日付型の ToString メソッドや、String.Format メソッドを用いる手法もあります。

こちらの方法では、引数に特定のカルチャを指定することで、
他の言語(英語、中国語、ドイツ語など)における曜日名を得ることも可能です。
http://msdn.microsoft.com/ja-jp/library/bb762911.aspx