Как правильно присвоить значение в Public Const? - VB

Формулировка задачи:

Как правильно присвоить значение?

PCom   = ActiveProject.Tasks.Parent.ProjectSummaryTask.EnterpriseNumber10

Решение задачи: «Как правильно присвоить значение в Public Const?»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> m_PCom <font color="blue">As</font> <font color="blue">String</font> 

<font color="blue">Public</font> <font color="blue">Sub</font> Main()
   <font color="00AA00">'...</font>
   m_PCom = ActiveProject.Tasks.Parent.ProjectSummaryTask.EnterpriseNumber10
   <font color="00AA00">'...</font>
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Public</font> <font color="blue">Property</font> <font color="blue">Get</font> PCom() <font color="blue">As</font> <font color="blue">String</font> 
   PCom = m_PCom
<font color="blue">end</font> <font color="blue">Property</font>
                        