Index out if range ved loop

Hei Eksperter
Jeg sliter litt med index out of range

En liten eksempel kode:

Dim i As Integer
  i = 0
  Do Until i = 4
  personer.telefon.item(0).idtype(i).value
Loop

Problemet er at jeg aldri vet hva range kommer til å bli. Det kan være i=4 eller i=20.

Så jeg får feil hvis "i" er mindre enn det jeg setter opp. da får jeg en error på "idtype(i)" at index er out of range.

Hvordan kan man løse dette?

Takknemlig for svar :-)