'.......... check each group box separately For Each ctrl In grpSize.Controls If ctrl.checked Then order &= " " & ctrl.Text End If Next For Each ctrl In grpCrust.Controls If ctrl.checked Then order &= " " & ctrl.Text End If Next For Each ctrl In grpToppings.Controls If ctrl.checked Then order &= " " & ctrl.Text End If Next lstOrder.Items.Add(order) '.......... check all the radio buttons in the form ' NOTE: controls "in" other controls will ' NOT be found, e.g., radion buttons ' in group boxes. For Each ctrl In Me.Controls If TypeOf ctrl Is RadioButton Then If ctrl.Checked Then order &= " " & ctrl.Text End If End If Next lstOrder.Items.Add(order) End Sub