{VB6}透過週期找出所屬週期的第一日日期

以下範例為
A:2011/01/01為第一周，則第二週的第一日日期為何？Q:2011/01/03

Private Sub Command1_Click()
  
    Dim iDate As Date         '指定第一周日期
    Dim i As Long                '指定週數

    iDate = "2011-01-01"
    i = 2
    iDate = iDate + (i - 1) * 7 - 1

    'Weekday(第一周日期,星期幾為新的一週)
    iDate = iDate - Weekday(iDate, vbMonday) + 1

    '結果顯示
    Label1.Caption = iDate

End Sub