I was in Toronto when I asked the question, but am back in Brisbane now.

I guess you mean, rather than a list box on each page a text box for the
description of the PC item and another for the amount?  If that's the case,
you could get that data to load into a list box on the final page and then
have it sorted either by PC Item or in order of the values.

In one of my projects, I achieved a similar thing by adding what, (in your
case would be the PC Items and their costs to a table in a "source"
document, and then loading them into the list box on the final page from
that source document in the way that I believe we have discussed before.

In my case, it was a list of employees and the departments to which each
employee belonged, and I used labels on the form as column headings for the
listbox.  Then I used the following couple of routines to sort the table in
the source document by the required column and then load the data back into
the list box

Private Sub lblName_Click()
'Open the TrainingData File
   Set sourcedoc = Documents.Open(PathofSystemFiles & "\TrainingData.doc",
, , False)
' Sort the list by CourseProvide then by CourseTitles
   If sourcedoc.Tables(2).Rows.Count > 2 Then
       sourcedoc.Tables(2).Sort ExcludeHeader:=True, FieldNumber:="Column
3", SortFieldType _
       :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending,
FieldNumber2:="Column 3", _
        SortFieldType2:=wdSortFieldAlphanumeric,
SortOrder2:=wdSortOrderAscending
   End If
'Populate the ListEmployees listbox with the sorted data
   Call PopulateListEmployees
   ListSelectEmployee.List = ListEmployees.List
'Modify label descriptions
   lblName.Caption = "Name"
   lblDepartment.Caption = "Department (Click to sort)"

End Sub

Private Sub lblDepartment_Click()
'Open the TrainingData File
   Set sourcedoc = Documents.Open(PathofSystemFiles & "\TrainingData.doc",
, , False)
' Sort the list by CourseProvide then by CourseTitles
   If sourcedoc.Tables(2).Rows.Count > 2 Then
       sourcedoc.Tables(2).Sort ExcludeHeader:=True, FieldNumber:="Column
5", SortFieldType _
       :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending,
FieldNumber2:="Column 3", _
        SortFieldType2:=wdSortFieldAlphanumeric,
SortOrder2:=wdSortOrderAscending, FieldNumber3:="Column 4", _
        SortFieldType3:=wdSortFieldAlphanumeric,
SortOrder3:=wdSortOrderAscending
   End If
'Populate the ListEmployees listbox with the sorted data
   Call PopulateListEmployees
   ListSelectEmployee.List = ListEmployees.List
'Modify label descriptions
   lblName.Caption = "Name (Click to sort)"
   lblDepartment.Caption = "Department"

End Sub