有高手制作一个自定义一段时间有几个星期X的函数吗？

'自定义函数
'==============================================================================
'-函数名称:         SumDay
'-功能描述:         将某一个时间段内日期统计有多少个星期几
'-输入参数:         日期型数值 如第一个控件输入 2012-2-1  第二个控件输入 2012-2-29
'-返回参数:         返回日期型数值为数字型型 即1 2 3 这种
'-使用示例1:         =SumDay([DateBegin],[DateEnd],3)    '返回值：5

'-使用示例2:         =SumDay(#2/1/2012#, #2/29/2012#, 3) '返回值：5
'-作    者:         叶海峰
'-创建日期;         2012-2-27 16:18:00
'==============================================================================

Public Function SumDay(DateBegin As Date, DateEnd As Date, DayOfWeek As Byte) As Integer
    Dim datecount As Integer, count As Integer, i As Integer
    If DateBegin > DateEnd Then MsgBox "开始日期不能大于结束日期": Exit Function
    datecount = DateEnd - DateBegin
    For i = 0 To datecount
        If Weekday(DateBegin + i, vbMonday) = DayOfWeek Then count = count + 1  '每周从星期1开始计算
         Next
    SumDay = count
End Function

Sub a()
'3代表星期三,合起来意思就是某段时间内有一个星期三,以此类推
    MsgBox SumDay(#2/1/2012#, #2/29/2012#, 3)

End Sub