Function Splitwerte(ByVal werte() As Double, _
                       ByVal Teilung As Double, _
                       ByRef splits As List(Of Double)) As Double(,)
 
        splits = New List(Of Double)
 
        Dim iTeilung As Double = Teilung
        Dim j As Integer = 0
 
        'Erforderliche Arraydimension ermitteln
        For i As Integer = 0 To werte.GetUpperBound(0)
            If werte(i) >= iTeilung Then
                j = j + 1
                iTeilung = j * iTeilung
            End If
        Next i
 
        'Array für Rückgabe einrichten
        Dim ret(j, werte.GetUpperBound(0)) As Double
 
        j = 0 'reinit
 
        For i As Integer = 0 To werte.GetUpperBound(0)
            If werte(i) < Teilung Then
                ret(j, i) = werte(i)
            Else
                j = j + 1
                Teilung = j * Teilung
                ret(j, i) = werte(i)
            End If
            splits.Add(ret(j, i))
        Next i
 
        Return ret
    End Function

  Dim Werte() As Double = {100, 200.5, 300, 800, 1900} ' Millimeterangaben als 
 
  Dim Teilung As Double = 200.5
 
  Dim splits As List(Of Double) = Nothing
 
  'Operation durchführen - Ergebnis im Array "sw" und im Ref-Param. "splits"
  Dim sw As Double(,) = Splitwerte(Werte, Teilung, splits)
 
  'Anzeige der gelisteten Splitwerte in einer Listbox (Datenbindung)
  Dim splitlist As New ListBox With {.Parent = Me}
  splitlist.DataSource = splits