Option Explicit
 
Dim Texte As New Collection
Dim TexteLastSel As Integer
 
Private Sub Form_Load()
    'Standardwerte
    TexteLastSel = 0
    Texte.Add "Hallo Welt!"
    listTexte.AddItem "1"
End Sub
 
Private Sub listTexte_Click()
    'änderungen im zuletzt bearbeiteten eintrag festsetzen
    MsgBox Texte(TexteLastSel + 1) 'Geht!
    MsgBox txtText.Text 'Geht auch!
    Texte(TexteLastSel + 1) = txtText.Text 'OBJECT REQUIRED!?
 
    'den neuen zuletzt selektierten eintrag festsetzen
    TexteLastSel = listTexte.ListIndex
 
    'edit-textbox beinhaltet den inhalt des neu selektierten eintrages
    txtText.Text = Texte(TexteLastSel + 1)
End Sub
 
Private Sub cmdAddNew_Click()
    Texte.Add ""
    listTexte.AddItem Texte.Count
    listTexte.ListIndex = listTexte.ListCount - 1
End Sub