Sammensatte typer og arrays fejl i koden

Kan nogen finde den fejl jeg har lavet i nedenstående kode?

Problem Efter 1. indtastning af data, går systemet ned, når jeg  rører ved txtfeltet, hvor jeg skal indtaste det nye ArrayID.
Jeg mener, at koden skulle være således, at der kan indtastes mere end et navn mv.

Option Explicit
Dim Person(100) As PersonType
Dim ArrayID As Integer

Private Sub cmdInput_Click()
Person(ArrayID).Navn = InputBox("Skriv navn")
Person(ArrayID).Adresse = InputBox("Skriv adresse")
Person(ArrayID).Alder = InputBox("Skriv alder")

End Sub

Private Sub cmdOutput_Click()
MsgBox "Navn: " & Chr$(9) & Person(ArrayID).Navn & Chr$(13) & "Adresse: " & Chr$(9) & Person(ArrayID).Adresse & Chr$(13) & "Alder: " & Chr$(9) & Person(ArrayID).Alder


End Sub

Private Sub Form_Load()

End Sub

Private Sub txtIndex_Change()
ArrayID = txtIndex.Text
End Sub