Dim var(4) As String
 
Private Sub Command1_Click()
    'Einträge in Feld speichern und ausgeben
    For i = 0 To 4
        var(i) = List1.List(i)
        MsgBox var(i)
    Next i
End Sub
 
Private Sub Form_Load()
    'Listbox füllen
    For i = 0 To 4
        List1.AddItem CStr(i)
    Next i
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1