Ошибка свойства класса VBA

Я получаю ошибку runtine 91: Object vriable или With block variable not set, когда я запускаю простой код манипулирования классом.

вот мои классы

cЗадача:

Private pMile As cMile

Public Property Get Mile() As cMile
    Set Mile = pMile
End Property

Public Property Set Mile(Value As cMile)
    Set pMile = Value
End Property

Private Sub Class_Initializer()
    Set Me.Mile = New cMile
End Sub

cМиля:

Private pstatus As String

Public Property Get status() As String
    status = ppstatus
End Property

Public Property Let status(Value As String)
    pstatus = Value
End Property

И саб:

Sub testt()

    Dim ct As New cTasks

    ct.Mile.status = "compl"

    Debug.Print ct.Mile, ct.Mile.status

End Sub

Код переходит из подпрограммы в свойство get в cTask. При попытке выполнить строку "End Propety" выскакивает ошибка.

Я предполагаю, что что-то не так с моими классами, но я не знаю, что. Я только недавно начал использовать классы. Любые идеи?

Спасибо