This example puts the third section of the build number of the version of Crystal Ball used to create the data on Sheet1 in cell A2 of the active worksheet and puts the version ID string of the version of Crystal Ball used to create Sheet 2 in cell B2. If the full build number is 11.1.159.0 and the version ID number is 11.1.1.1.00, 159 is placed in cell A2 and "11.1.1.1.00" is placed in cell B2.
Range("A2").Value = CB.GetWorksheetVersion(Sheet1, cbFullBuildVersion, 3)
Range("B2").Value = CB.GetWorksheetVersion(Sheet2, cbProductVersion)