title: Sub property in VBA Excel class module
body: <p>I have a module named cTask with the code below in it:</p>
  
  <pre><code>Private pMile As String
  
  Public Property Get Mile() As String
  Mile = pMile
  End Property
  
  Public Property Let Mile(Value As String)
  pMile = Value
  End Property
  </code></pre>
  
  <p>So in my sub lets say I initiate</p>
  
  <pre><code>dim currtask as cTask
  </code></pre>
  
  <p>I would like to write</p>
  
  <pre><code>curtask.Mile=TIM
  </code></pre>
  
  <p>and also</p>
  
  <pre><code>curtask.Mile.stat=2
  </code></pre>
  
  <p>just as </p>
  
  <pre><code>worksook("qqq").sheets("okko").cells(1,1)...
  </code></pre>
  
  <p>how do I do the nested properties in my class?</p>
  
  <p>EDIT:
  so Have in one class named cTask</p>
  
  <pre><code>Private pMile As cMile
  Public Property Get Mile() As String
  Mile = pMile
  End Property
  
  Public Property Let Mile(Value As String)
  pMile = Value
  End Property
  </code></pre>
  
  <p>and in class cMile I have</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>then in my sub all i do is declare</p>
  
  <pre><code>dim curtask as cTask
  </code></pre>
  
  <p>Is this correct? It does not work so I must have missed something</p>