Appending to an array

[Donovan]

I have an address book that has three arrays declared in a code module:

Module ArrayModule
    Public mstrAddressArray(9), mstrCityArray(9), mstrPhoneArray(9) As String
End Module

I need to update/append these arrays when I add a new contact.

mstrNewContact = InputBox("Enter the name of the new contact", "Add Contact")

I call another form to input the new contact information. I use text boxes to add info. Here is where my problem is. I need to append to the existing array but am unsure how to do that.

This code

ReDim Preserve mstrAddressArray(mintNewContacts)
        mstrAddressArray(mintNewContacts) = txtAddress.Text

places whatever I type into the txtAddress.text

The code I test to find out the value of mstAddressArray works and displays whatever I typed into txtAddress.text.

lblOutput.Text = mstrAddressArray(mintNewContacts)

This tells me it is being written to the array, however when I click on a name in my list box in my Address Form after I have added a new contact, and click on show details button I get the error "index was outside the bounds of the arrray."

Any help is greatly appreciated.

Thanks in advance.