Out of stack space

[azrina]

My program goes like this:
1) I have date range 6th to 16th
2) If current date equals to date range stated above, the Command1 button will be automatically clicked.

But, the problem is I got this error when running this program.

Runtime error '28':
out of stack space

Why this error occur ? Can someone help me correct this error?

Below is the code:

Private Sub lbltime_Change()
dateCreate_1 = Month(Now) & "/6/" & Year(Now)
dateCreate_2 = Month(Now) & "/16/" & Year(Now)
lbltime.Caption = Date
Dim bil As Date
For bil = dateCreate_1 To dateCreate_2
tarikhCreate = bil
Label1.Caption = tarikhCreate
     If lbltime.Caption = Label1.Caption Then
        Command1_Click
     End If
Next
End Sub