Instead of
ws.Cells(nextrows, 2) = ctrl.Value
use
ws.Cells(nextrows, 2) = ctrl.Caption