【VBA】クラスのプロパティを読み取り専用にするLet と Getの書き方

Private id_ As String

Public Property Let ID(ByVal value As String)
	If not id_ = “” then
		MsgBox "すでに登録済みです", vbCritical, "上書き禁止"
	else
		id_ = value
	End if
End Property

Public Property Get ID() As String
    ID = id_
End Property

Private count_ As Long

Private Property Let Count(ByVal value As Long)
    count_ = value
End Property
Public Property Get Count() As Long
    Count = count_
End Property

Public Sub OpenRS()
	With RS
		.Open ThisSQL, CN
		If RS Is Nothing Or (.bof And .EOF) Then Call CancelDB
		Count = .Fields.count  '☆☆ここでフィールドのカウントを取る
	End With
End Sub

Private yearmonth_ As Long

Private Sub Class_Initialize()
	dim d as date: d = Now()
	dim v as string: v = Year(Now) & "年" & Month(Now) & "月"
	YearMonth = v '☆☆ここで文字列を作る
End Sub

Private Property Let YearMonth(ByVal value As String)
    yearmonth_ = value
End Property
Public Property Get YearMonth() As String
    YearMonth = yearmonth_
End Property