How to create Write only property

Dim DocID As Decimal
Public WriteOnly Property PassDocumentID()
Set(ByVal value)
DocID = value
End Set
End Property