Option Explicit

Private Sub Form_Load()

YearFrom.ListIndex = 5
YearTo.ListIndex = 5
Weekday.ListIndex = 0

End Sub
Private Sub btCount_Click()

lbRes.Caption = CStr(DateDiff("ww", DateSerial(CInt(YearFrom.Text), 1, 0), _
  DateSerial(CInt(YearTo.Text), 12, 31), Weekday.ItemData(Weekday.ListIndex)))

End Sub
Private Sub YearFrom_Click()
  lbRes.Caption = ""
End Sub
Private Sub YearTo_Click()
  lbRes.Caption = ""
End Sub
Private Sub Weekday_click()
  lbRes.Caption = ""
End Sub
Private Sub btExit_Click()
  Unload Me
End Sub