Thank you for your reply.  Here's the code I have:

Private Sub CommandButton1_Click()
If ListBox1.ListIndex > -1 And ListBox2.ListIndex > -1 And
ListBox3.ListIndex > -1 Then
 If MsgBox("You selected:  " & ListBox1.Text & ";" & "  " _
       & ListBox2.Text & ";" & "  " & ListBox3 _
       & " .  Is this correct?", vbQuestion + vbYesNo, "Selection") = vbYes
Then
   MsgBox "Proceed."
   Me.Hide
 End If
Else
 MsgBox "Please select a Big Idea, Concept and Skill Expectation."
End If
End Sub

Private Sub UserForm_Initialize()
Dim myArray()  As Variant
Dim sourcedoc  As Document
Dim i As Integer
Dim j As Integer
Dim myitem As Range
Dim m As Long
Dim n As Long
Application.ScreenUpdating = False
Set sourcedoc = Documents.Open(FileName:="C:\Lesson Design Tool\Source.doc",
Visible:=False)
i = sourcedoc.Tables(1).Rows.Count - 1
j = sourcedoc.Tables(1).Columns.Count
ListBox1.ColumnWidths = "400;0;0"
ListBox1.ColumnCount = j
ReDim myArray(i, j)
For n = 0 To j - 1
 For m = 0 To i - 1
   Set myitem = sourcedoc.Tables(1).Cell(m + 2, n + 1).Range
   myitem.End = myitem.End - 1
   myArray(m, n) = myitem.Text
 Next m
Next n
ListBox1.List() = myArray
sourcedoc.Close SaveChanges:=wdDoNotSaveChanges
End Sub

Private Sub ListBox1_Change()
Dim myArray As Variant
myArray = Split(ListBox1.List(ListBox1.ListIndex, 1), Chr(13))
ListBox2.List = myArray
ListBox3.Clear
End Sub

Private Sub ListBox2_Change()
Dim myArray1 As Variant
Dim myArray2 As Variant
myArray1 = Split(ListBox1.List(ListBox1.ListIndex, 2), Chr(13))
myArray2 = Split(myArray1(ListBox2.ListIndex), "|")
ListBox3.List = myArray2
End Sub