I have created a List box using the following macro. But I'm clueless as to how to extract the selected value from the list:

Set lb = Worksheets("Sheet1").Shapes.AddFormControl(xlListB ox, 1, 1, 100, 100)

lb.Name = "ListBox1"

Do While Not rs.EOF
    lb.ControlFormat.AddItem rs.fields(0).Value
    rs.movenext
Loop

I would appreciate any help.

Thanks