Option Explicit On
Option Strict On
 
Public Class frmMain
 
    Dim Werte As New ArrayList
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim WertAusTextBox As Double
 
 
        WertAusTextBox = CDbl(TextBox1.Text)
        Werte.Add(WertAusTextBox)
 
        'ListBox leeren
        ListBox1.Items.Clear()
 
        'Werte sortieren und in ListBox füllen
        'sortieren
        Werte.Sort()
 
        'ListBox(füllen)
        ListBox1.Items.AddRange(Werte.ToArray)
 
        TextBox1.Text = ""
        TextBox1.Focus()
 
    End Sub
 
End Class