'clsBestleistungen
Option Explicit
Private mDatum As Date
Private mName As String
Private mHS As String
Private mSG As String
Private mHF As String
Private mGesamtHS As Integer
 
Public Property Let Datum(ByVal MyArgument As Date) 
mDatum = MyArgument
End Property
 
Public Property Get Datum() As Date   
Datum = mDatum
End Property
 
Public Property Let Name(ByVal MyArgument As String) 
mName = MyArgument
End Property
 
Public Property Get Name() As String   
Name = mName
End Property
 
Public Property Let HS(ByVal MyArgument As String) 
mHS = MyArgument
End Property
 
Public Property Get HS() As String   
HS = mHS
End Property
 
Public Property Let SG(ByVal MyArgument As String) 
mSG = MyArgument
End Property
 
Public Property Get SG() As String   
SG = mSG
End Property
 
Public Property Let HF(ByVal MyArgument As String) 
mHF = MyArgument
End Property
 
Public Property Get HF() As String   
HF = mHF
End Property
 
Public Property Let GesamtHS(ByVal MyArgument As Integer) 
mGesamtHS = MyArgument
End Property
 
Public Property Get GesamtHS() As Integer   
GesamtHS = mGesamtHS
End Property

Public Property Get item(ByVal Index As Long) As clsBestleistungen
Set item = BestlCol(Index)
End Property
Public Property Get count() As Long
count = BestlCol.count
End Property
Public Sub remove(ByVal Index As Integer)
BestlCol.remove Index
End Sub
 
Private Sub Class_Initialize()
Set BestlCol = New Collection
End Sub
 
Private Sub Class_Terminate()
Set BestlCol = Nothing
End Sub
 
Public Function Add(Datum As Date, Name As String, HS As String, SG As String, _
  HF As String) As clsBestleistungen
Dim DSnew As clsBestleistungen
Set DSnew = New clsBestleistungen
With DSnew
.Datum = Datum
.Name = Name
.HS = HS
.SG = SG
.HF = HF
End With
BestlCol.Add DSnew
Set Add = DSnew
Set DSnew = Nothing
End Function