opdatere et array

Hej x-perter!

En lille irriterende detalje ved et array...

Først selve koden:

Private Sub cmdTilfoj_Click()
     
    For I = 0 To 9 'UBound(Mic)
        If Len(Mic(I)) = 0 Then Exit For
    Next I
        Mic(I) = Text1.Text
   
    List3.Clear                'kode fra cmdOpdater
        For J = 1 To 9       
            List3.AddItem Mic(J)
        Next J
       
    MsgBox "Mikrofon tilføjet til listen"
    Debug.Print Mic(I)
   
End Sub

Private Sub cmdOpdater_Click()
           
        List3.Clear
       
        For I = 1 To 9
            List3.AddItem Mic(I)
        Next I

End Sub

I et tekstfelt indtastes det næste element som skal puttes i arrayet..
Det virker fint nok.

Når der trykkes på "Opdater-knappen" skal arrayet skrives ud, selvfølgelig med det sidst tilføjede element.

Problemet er bare at det sker ikke!
Først når der været trykket på "Tilføj" én ekstra gang - og derefter "Opdater" får jeg samtlige elementer skrevet ud i listen!

Er der nogen som kan fortælle mig hvad jeg gør forkert.