This example puts the current settings for the first four run preferences into cells M10 through M13.
In a macro, you can enter the line:
For i = 1 To 4 Range("M9").Offset(i, 0).Value = CB.GetRunPrefs(i) Next i