Dim Werte() As Double = {100, 200.5, 300, 800, 1900} ' Millimeterangaben als 
' Beispiel
Dim Teilung AS Double = 200.5

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