Generator Hilfe

[Death~]

Ich bin momentan zu betrunken, um deinen unstrukturierten Text vollständig zu entschlüsseln. Also dein Problem ist, dass du nur mit GUI-Elementen arbeiten kannst und nicht weißt, wie du Daten abspeicherst?
Dafür kannst du Variablen benutzen.

    
Dim penis As New List(Of String)    
Private Sub addDvd(ByVal name As String, ByVal filmlaenge As String, ByVal penislaenge As String)
        penis.Add(name & ":::" & filmlaenge & ":::" & penislaenge)
End Sub
Private Function decodeWaginer(ByVal dvd As String) As String()
        Return Split(dvd, ":::")
End Function

So kannst du zum Beispiel deine DVDs in einer Liste speichern. Zum Auslesen verwendest du die decodeWaginer und kannst über den jeweiligen Index auf deine DVD-Attribute wieder zugreifen.

LG <3

Edit: Achja OOP wäre übrigens noch besser