... as a number Arrayposition = listbox.listindex + 1 Show selected record as a number in a message box Repeat the following code for arrayposition to the number of records in the array -1 Arrayposition +1,1 = arrayposition +1,1 Repeat code 6 times Nameofthearray arrayposition +1, fields = Nameofthearray arrayposition +1, fields Next fields Next delete Numofrecords = numofrecords -1 Goto the add data sub routine End Sub routine Form Load Numofrecords = 0 End sub Loading Data Open text file called names for inputing on channel 1 Input on channel 1 numofrecords Repeat code for how ever many records there is in the array Repeat code for counter2 6 times Input on channel 1 the array data Next counter Next counter Close channel 1 Call subroutine add End Subroutine Imputing Data If numofrecords is less than 12 then Numofrecords = numofrecords add 1 Display input box to user asking for the following details adding each field and row to the array First Name Surname Town Postcode Mobile Home Phone Tell the user that all details have been entered Else Tell the user that the array is now full End ...

See this essay or coursework document in full right now