クラス内にあるクラスの扱い

Question

###前提・実現したいこと
クラスの中に生成した別のPrivateクラスの情報を使った処理をしたいのですが詰まってしまいました。何卒よろしくお願いします。

###発生している問題・エラーメッセージ

コンパイルエラー:
ByRef引数の型が一致しません。

###該当のソースコード
ClassA.cls

Private A As Long
Private B As Long
Private C As Long
Private Cls As ClassB

Public Sub Class_Initialize()
 A = 1
 B = 2
 C = 3
 Set Cls = New ClassB
End Sub

Public Property Get Data() As Sample
 Dim D as Sample
 With D
  .tA = A
  .tB = B
  .tC = C
 End With
 Data = D
End Property

Public Property Get bData() As Sample
 bData = Cls.Data
End Property

ClassB.cls

Private A As Long
Private B As Long
Private C As Long

Public Sub Class_Initialize()
 A = 4
 B = 5
 C = 6
End Sub

Public Property Get Data() As Sample
 Dim D as Sample
 With D
  .tA = A
  .tB = B
  .tC = C
 End With
 Data = D
End Property

ClassC.cls

Public Function Judge(pA as Sample, pB as Sample) as Boolean
 If pA = pB Then
  Judge = True
 else
  Judge = False
 End If
End Sub

MainModule.bas

Private Cls1 As New ClassA
Private Cls2 As New ClassA
Private ClsJ As New ClassC

Public Type Sample
 tA As Long
 tB As Long
 tC As Long
End Type

Public Sub Main()
 If ClsJ.Judge(Cls1.Data, Cls2.bData) Then
  MsgBox("TRUE")
 Else
  MsgBox("FALSE")
 End If
End Sub

###試したこと
ブレークポイントを挿入して問題部分の絞り込み
→ClsJ.Judge(Cls1.Data, Cls2.bData)にあるとおもわれる。

###補足情報(言語/FW/ツール等のバージョンなど)
Windows10 Ofiice2016

Answer 1

ざっと見たところ、ClassA.clsのbDataの戻り値の所でしょうか。
DataをbDataに。

Public Property Get bData() As Sample
 'Data = Cls.Data
 bData = Cls.Data
End Property

Comments

[LimeMint]

申し訳ありません。ただの誤字です...
ここ以外に問題がないのなら別にあるのでしょうか？

[ttyp03]

真面目に見てみました。
どうやらJudge関数のなかで、構造体同士を直接比較しているのがダメっぽいです。
クラス同士ならIs関数で比較（pA Is Pb）できると思うのですが、構造体には使えないようです。
面倒ですが、次のようにif文を書けば通りました。
If pA.tA = pB.tA And pA.tB = pB.tB And pA.tC = pB.tC Then

[LimeMint]

ありがとうございました。無事解決しました。