Не удается заблокировать частные свойства от доступа

Question

У меня есть класс ClsSubject с набором личных свойств (переменные с заглавной буквой "P" в именах) и буквой / установщиком. Вот код:

Option Explicit

Private PName As String
Private PStatus As String
Private PINN As String
Private POGRN As String
Private PAddress As String

Property Let Name(val As String)
    PName = val
End Property

Property Get Name() As String
    Name = PName
End Property

Property Let Status(val As String)
    PStatus = val
End Property

Property Get Status() As String
    Status = PStatus
End Property

Property Let INN(val As String)
    PINN = val
End Property

Property Get INN() As String
    INN = PINN
End Property

Property Let OGRN(val As String)
    POGRN = val
End Property

Property Get OGRN() As String
    OGRN = POGRN
End Property

Property Let Address(val As String)
     PAddress = val
End Property

Property Get Address() As String
    Address = PAddress
End Property

Вот пример класса (в составе другого класса)

Видимо, мои "приватные" переменные видны и доступны вместе с буквами / установщиками. Я также могу получить значение от них непосредственно в ближайшем окне, как ?Lcase.Client.PName. Насколько я знаю, эти данные должны быть недоступны. Что я делаю не так?