Unable to assign values to Class Properties

[SeekingMoSkills]

I receive the error message that I am out of stack space. I receive this
error message on the first iteration of my loop structure which is puzzling.
The errror seems to be the line where I attempt to assign a date value to a
class property.
In addition to receiving the error message, and the debugger stopping on
line 14 below, I noticed the Activitiy.Index property on line 11 is not
receiving the proper value either. The Activity.Index should have the the
value of one after the assignment but its failing to do so. Any assistance is
greatly appreciated.

Below is the code:

01Do Until switch = False
02 If ActiveCell.Row = limit Then
03 switch = False
04 Else
05 With ActiveCell
06 If .Value <= " " Then
07 .Offset(1, 0).Activate
08 Else
09 Set Activity = New Class1
10 temp = .Address
11 Activity.Index = counter
12 Activity.BusPart = .Value
13 'MyDate = .Offset(0, 20)
14 Activity.StartTime = .Offset(0, 20)
15 VisitPlan.Add Activity
16
17 temp.Activate
18 .Offset(1, 0).Activate
19 counter = counter + 1
20 End If
21 End With
22 End If
23Loop