This example runs a simulation of 1000 trials and then pastes the value of the 100th trial of the forecast in B1 into cell A10.
In a macro, you can enter:
CB.Simulation 1000 Range("A10").Value = CB.GetForeData(Range("B1"), 100)