Problem med indsættelse i listbox

Når jeg afvikler koden herunder får jeg følgende fejlmeddelelse:

Run-time error \'381\':
Could not set the List property. Invalid property array index.


      \'find antallet af kunder
      Do While Len(lstModtager.List(antal, 1)) > 0
          antal = antal + 1
      Loop
   
      \'indlæs kunde i næste plads på listen
      If lstKunde.ListIndex > -1 Then
-->      lstModtager.List(antal, 0) = lblId.Caption
          lstModtager.List(antal, 1) = lblNavn1.Caption
          lstModtager.List(antal, 2) = lblTlf.Caption
          lstModtager.List(antal, 3) = txtAtt.Text
      End If

Jeg forsøger først at finde ud af hvor mange kunder der allerede er i listen. Derefter vil jeg indsætte en ny kunde på den næste tomme plads.

Pilen indikerer hvilken linie debug markerer.
Hvad gør jeg forkert?