This code unloads Crystal Ball and returns TRUE in cell B2 when unloading is complete.
Range("B2").Value = CB.Shutdown()