ＶＢＡ クラスモジュールについて

質問

http://www.excellenceweb.net/vba/class/what_vba_class.html
を見ながらクラスモジュールの勉強をしているのですが
躓きました。

新規にクラスモジュールを挿入し
オブジェクト名に果物売上と名付けました。

そこに、
Sub TEST()
Dim Apple As 果物売上
Set Apple = New 果物売上
End Sub
と入力しました。

そして標準モジュールを挿入し、
そこに
Sub TEST()
Dim Apple As 果物売上
Set Apple = New 果物売上

With Apple
.名前 = "リンゴ"
.価格 = 100
.在庫 = 20
.仕入数 = 50
End With

With Apple
Debug.Print .名前
End With
End Sub
を入力しました。

そして、デバッグすると
「Apple As 果物売上」の部分が
コンパイルエラーになってしまいます。

全然クラスモジュールの使い方がわからないのですが
どこを直せばいいのでしょうか？

回答No.1

TAKA_R

クラスモジュールに書く内容が違います。
左のサイトマップの中に今のサイト「VBA～」の２段ぐらい下に、「プロパティを作成する」があると思うので、開いて読んでみてください。