How to save a raster type to a .art file

public void SaveRasterType(IRasterType theRasterType, string rasterTypeFilePath)
{
    // The raster type properties interface can be used to give the saved raster type a name.
    IRasterTypeProperties theRasterTypeProperties = (IRasterTypeProperties)
        theRasterType;
    theRasterTypeProperties.Name = "myRasterType";
    // The raster type environment class is used to save the raster type.
    IRasterTypeEnvironment theRasterTypeEnv = new RasterTypeEnvironmentClass();
    // The saved raster type is given out as a memory blob,
    IMemoryBlobStream ipBlob = theRasterTypeEnv.SaveRasterType(theRasterType);
    // which is then written out to the file.
    ipBlob.SaveToFile(rasterTypeFilePath);
    Console.WriteLine("Successfully saved: " + rasterTypeFilePath);
}

Public Sub SaveRasterType(ByVal theRasterType As IRasterType, ByVal rasterTypeFilePath As String)
    ' The raster type properties interface can be used to give the saved raster type a name.
    Dim theRasterTypeProperties As IRasterTypeProperties = DirectCast(theRasterType, IRasterTypeProperties)
    theRasterTypeProperties.Name = "myRasterType"
    ' The raster type environment class is used to save the raster type.
    Dim theRasterTypeEnv As IRasterTypeEnvironment = New RasterTypeEnvironmentClass()
    ' The saved raster type is given out as a memory blob,
    Dim ipBlob As IMemoryBlobStream = theRasterTypeEnv.SaveRasterType(theRasterType)
    ' which is then written out to the file.
    ipBlob.SaveToFile(rasterTypeFilePath)
    Console.WriteLine("Successfully saved: " & rasterTypeFilePath)
End Sub