How to save a mosaic dataset to a raster dataset

//Open a File geodatabase workspace
IWorkspaceFactory workspaceFactory = new FileGDBWorkspaceFactoryClass();
IWorkspace wsGDB = workspaceFactory.OpenFromFile(@"c:\filegeodatabase.gdb", 0);

//Open a mosaic dataset using the MosaicWorkspaceExtensionHelper class
IMosaicWorkspaceExtensionHelper mosaicHelper = new
    MosaicWorkspaceExtensionHelperClass();
IMosaicWorkspaceExtension mosaicWs = mosaicHelper.FindExtension(wsGDB);
IMosaicDataset mosaic = mosaicWs.OpenMosaicDataset("myMosaicDataset");

//a mosaic dataset is a special type of function raster dataset
IFunctionRasterDataset functionDS = (IFunctionRasterDataset)mosaic;

//Use ISaveAs to write out a raster dataset. The size of a raster dataset can be exported from
//a mosaic is defined in the default properties of a mosaic dataset. Make sure the output size 
//is within the limit.
ISaveAs rasterSaveAs = (ISaveAs)functionDS;
rasterSaveAs.SaveAs("outRaster", wsGDB, "GDB");

'Open a File geodatabase workspace
Dim workspaceFactory As IWorkspaceFactory = New FileGDBWorkspaceFactory
Dim wsGDB As IWorkspace = workspaceFactory.OpenFromFile("c:\filegeodatabase.gdb", 0);

'Use MosaicWorkspaceExtensionHelper class to open a mosaic dataset
Dim mosaicHelper As IMosaicWorkspaceExtensionHelper = New MosaicWorkspaceExtensionHelperi
Dm mosaicWs As IMosaicWorkspaceExtension = mosaicHelper.FindExtension(wsGDB)
Dim mosaic As IMosaicDataset = mosaicWs.OpenMosaicDataset("myMosaicDataset")

'Mosaic dataset is a type of function raster dataset
Dim functionDS = CType(mosaic, IFunctionRasterDataset)

'Use ISaveAs to write out a raster dataset. The size of a raster dataset can be exported from
'a mosaic is defined in the default properties of a mosaic dataset. Make sure the output size
'is within the limit.

Dim rasterSaveAs = CType(functionDS, ISaveAs)
rasterSaveAs.SaveAs("outRaster", wsGDB, "GDB")