'This calc will take a period supplied from a comboindex1 and add 1 to it as in the cube ON is line 2
'if ON TN etc is not required this could be amended to start at 1m by adding 7 instead of 1
Sub TestForm_OnLoad()
  Dim IO 
	Set IO = GetObject("","Cubes.IScriptCubeIO")
	
	
	
    Period_1=IO.GetInputCubeCell(0,0).GetValueDouble()

    
    
    	IO.GetOutputCubeCell(0,0).SetValueDouble(Period_1+1)
    
 
       
End Sub