クラス の作成方法

質問

以前の質問で下記の様にご教示頂いたのですが、
標記の内容がわからなくうまくいきません
初歩的な質問ではございますが、
作成方法を教えてくださいます様、よろしくお願いいたします

用意するもの
１．CSVのデータ1行を表すクラス(CsvQueueクラスとする)
　メンバー変数は、その1行のデータとCsvQueueクラスへのポインタ。データは面倒ならPublicでよいだろう。
　メンバー関数は、PutData()とGetData()。

CsvQueueクラス
Public strCsvData1 As String
Public strCsvData2 As String
Public strCsvData3 As String
Private queNextData As CsvQueue

参考：：：：：：：：：：：：：：：：：：：：：
Public Function PutData(ByVal q As CsvQueue) As Boolean
　If queNextData Is Nothing Then
　　Set queNextData = q
　　Exit Function
　End If
　PutData = queNextData.PutData(q)
End Function

Public Function GetData() As CsvData
　GetData = queNextData
End Function

CSV出力モジュール内（追加した行を++で表している)
Private csvRoot As CsvData ' Nothingに初期化

Private Sub output(ByVal ofile As String)
On Error GoTo trap
handle = FreeFile()
Open ofile For Append As #handle
　Do Until csvRoot Is Nothing
　　(中略と同内容)
　　csvRoot = csvRoot.GetData()
　Loop
(中略)
Print #handle, _
Close #handle
Exit Sub
trap:
'MsgBox Err.number & "," & Err.Description, vbInformation, "output"
　Dim csvTemp As New CsvData
　csvTemp.strCsvData1 = ...
　If csvRoot Is Nothing Then
　　Set csvRoot = csvTemp
　Else
　　csvRoot.PutData(csvTemp)
　End If
End Sub

回答No.1

jamra

質問の意味を取り違えていたら、すみません。

Public Class CsvQueue
　質問内の『CsvQueueクラス』以下を貼り付けてください。

End Class

またヘルプを起動して、Classで検索を行うと、
詳細が表示されます。
頑張ってみてください。