提取星期几的api函数如何实现。为设置条件语句用。

提取星期几的api函数怎么实现。为设置条件语句用。。。
大家知道Time控件一般能提供日期，比如某某年某某月某某日。。。。

请问我想通过日期设置条件怎么实现，

例如：

if   星期一   then
。。。
elseif   星期二   then
。。。。

。。。。。
end   if

------解决方案--------------------
Option Explicit
Private Sub Form_Load()
Dim n As Integer
Dim week As String

n = Weekday(Date, vbSunday)
week = WeekdayName(n, False, vbSunday)

Text1 = week

If week = "星期二 " Then
MsgBox "日期是星期二 "
End If
End Sub

这样就ok了。。。。。。。。。。。。。。。。。。。。。。