vba - Dateオブジェクトの設定プロパティでのVBAコンパイルエラー

Question

私は VBA コードにまったく慣れていません。作成したクラスでこのコードを実行しようとすると、コンパイル エラーが発生します。

Private pWorkDate As Date

Public Property Set WorkDate(value As Date)
Set pWorkDate = value
End Property

Public Property Get WorkDate() As Date
Set WorkDate = pWorkDate
End Property

これは私が得ているエラーメッセージです:

同じプロパティのプロパティ プロシージャの定義に一貫性がないか、プロパティ プロシージャにオプションのパラメータ、ParamArray、または無効な Set final パラメータがあります

私の無知を許してください、しかし、私は周りを探し回っていて、私が間違っていることを見つけることができないようです.