title: Class property error VBA
body: <p>I am getting runtine error 91: Object vriable or With block variable not set whne I run a simple class manipulation code.</p>
  
  <p>Here are my classes</p>
  
  <p>cTask:</p>
  
  <pre><code>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
  </code></pre>
  
  <p>cMile:</p>
  
  <pre><code>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
  </code></pre>
  
  <p>And the sub:</p>
  
  <pre><code>Sub testt()
  
      Dim ct As New cTasks
  
      ct.Mile.status = "compl"
  
      Debug.Print ct.Mile, ct.Mile.status
  
  End Sub
  </code></pre>
  
  <p>The code goes from the sub to the get property in cTask. When about to execute the "End Propety" line the error pops up.</p>
  
  <p>I guess something must be wrong with my classes but I don not know what. I have just recently started using classes. Any ideas?</p>
  
  <p>Thank you</p>