Public Class Bericht
     private strEinzelBericht(15) As String
 
      Public Property BerichtnummerEinstellen() As Integer
            Get
                Return intBerichtnummer
            End Get
            Set(ByVal Berichtnummer As Integer)
 
                If bolDatensatzVerändert = True Then
                    BerichtSpeichern()
                End If
                DatensatzarrayLöschen()
 
                intBerichtnummer = Berichtnummer
                MsgBox(strEinzelBericht.GetUpperBound(0).ToString)
'Hier wird 15 ausgegeben
 
                If intBerichtnummer < Datei.AnzahlDatensätze Then BerichtLaden()
                'Datensatz laden, falls vorhanden
 
            End Set
        End Property
 
    Public Property Nachname() As String 
            Get           
                Return strEinzelBericht(0)
            End Get
            Set(ByVal Nachname As String)
                MsgBox(strEinzelBericht.GetUpperBound(0).ToString)
'Hier ist das Ergebnis 6
                bolDatensatzVerändert = True       'Bericht wurde verändert
                strEinzelBericht(0) = Nachname
            End Set
        End Property
 
   End Class

Public strEinzelBericht(6) As String