Property Get

used to retrieve a property of a class.

This is exactly the same as just using a private variable.

Public Property Get Department() As String 
   Department = msDepartment 
End Property 

The following line gets the department by calling the property Get procedure

Call MsgBox(objEmployee.Department) 

Public Property Get HoursPerWeek() As Double 
   HoursPerWeek = mdbNormalHours + mdbOvertimeHours 
End Property 

Returns a property object reference

Public Property Get SomeThing() As Object 
   Set SomeThing = m_objObject 
End Property 

Read Only Properties

This property only has a Property Get (no Property Let) which means that it is read-only.

Public Property Get NormalHours() As Double 
   NormalHours = mdbNormalHours 
End Property 

This property only has a Property Get (no Property Let) which means that it is read-only.

Public Property Get OvertimeHours() As Double 
   OvertimeHours = mdbOvertimeHours 
End Property