Function _SplitWerte(ByVal Werte() As Double, ByVal Teilung As Double) As _
      Double(,)
        Dim MaxWert As Integer = Werte.GetUpperBound(0)
        ' Dim _SplitWerte(,) As Double
        Dim i, j As Integer
        For i = 0 To MaxWert
            If Werte(i) < Teilung Then
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i) ' <----- j hier in rot unterstrichen
            Else
                j = j + 1
                Teilung = j * Teilung
                ReDim _SplitWerte(j, i)
                _SplitWerte(j, i) = Werte(i) ' <----- j hier in rot unterstrichen
            End If
            Me.listRaster.Items.Add(_SplitWerte(j, i))' <----- j hier in rot 
            ' unterstrichen
        Next i
    End Function

    Private Property _SplitWerte(j As Integer, i As Integer) As Double
        Get
            Return __SplitWerte
        End Get
        Set(value As Double)
            __SplitWerte = value
        End Set
    End Property