Public Class Form1
    Dim wurzel
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Werte eingeben, wenn 0, ESC oder Abbrechen dann abbruch
        Dim akt, wert
        wert = -1
        While Not wert = 0
            akt = New knotenLL
            wert = InputBox("Schreib einfach mal eine Zahl in das Feld! Wenn du 0 eingibst dann wird die Eingabe abgebrochen!")
            If IsNumeric(wert) Then
                If Not wert = 0 Then
                    akt.wert = wert
                    akt.naechster = wurzel
                    wurzel = akt
                End If
            Else
                Exit Sub
            End If
        End While
        ausgabe()
    End Sub
    Private Sub ausgabe()
        'Ausgabe der Zahlen
        Dim akt
        akt = wurzel
        If Not akt Is Nothing Then
            While Not akt Is Nothing
                MsgBox(akt.wert)
                akt = akt.naechster
            End While
        End If
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Wert löschen
        Dim loeschen, vorheriger, akt
        akt = wurzel
        loeschen = InputBox("Wert löschen? Wenn ja dann Wert eingeben!")
        While Not akt.wert = loeschen And Not akt.naechster Is Nothing
            vorheriger = akt
            akt = akt.naechster
        End While
        If akt.wert = loeschen Then
            If Not vorheriger Is Nothing Then
                vorheriger.naechster = akt.naechster
            Else
                wurzel = akt.naechster
            End If
        Else
            MsgBox("Nich da!")
        End If
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        'Einfuegen Sortiert
        Dim neu, akt, vorheriger As knotenLL

        neu = New knotenLL
        vorheriger = Nothing

        neu.wert = Int(InputBox("Neuer Wert"))

        akt = wurzel

        While Not akt Is Nothing
            If neu.wert > akt.wert Then
                vorheriger = akt
                akt = akt.naechster
            Else
                Exit While
            End If
        End While

        neu.naechster = akt

        If Not vorheriger Is Nothing Then
            vorheriger.naechster = neu
        Else
            wurzel = neu
        End If

    End Sub
End Class
Public Class knotenLL
    Public wert As Integer
    Public naechster As knotenLL
    Public vorheriger As knotenLL
End Class