How to load a raster dataset to the raster field in a feature class

static void LoadToRasterAttribute(IFeatureClass featureClass, IRasterDataset
    rasterDataset, int OID)
{
    /*Parameters:
    featureClass—The feature class with raster attribute.
    rasterDataset—The raster dataset to be loaded to the raster attribute.
    OID—The ObjectID of the feature to be edited.
     */

    //Get workspace for editing.
    IDataset dataset = (IDataset)featureClass;
    IWorkspaceEdit workspaceEdit = (IWorkspaceEdit)dataset.Workspace;
    workspaceEdit.StartEditing(false);
    workspaceEdit.StartEditOperation();
    IFeature feature = featureClass.GetFeature(OID);

    //Find raster field index.
    int iRasterField = 0;
    for (int i = 0; i < feature.Fields.FieldCount; i++)
    {
        if (feature.Fields.get_Field(i).Type == esriFieldType.esriFieldTypeRaster)
        {
            iRasterField = i;
            i = 1000;
        }
    }

    //Create raster value with input raster dataset.
    IRasterValue rasterValue = new RasterValueClass();
    rasterValue.RasterDataset = rasterDataset;

    //Set raster value to the raster field.
    feature.set_Value(iRasterField, rasterValue);
    feature.Store();

    //Stop editing and save edits.
    workspaceEdit.StopEditOperation();
    workspaceEdit.StopEditing(true);
}

Public Sub LoadToRasterAttribute(ByVal featureClass As IFeatureClass, ByVal rasterDataset As IRasterDataset, ByVal OID As Integer) ' Parameters:
    ' featureClass—The feature class with raster attribute.
    ' rasterDataset—The raster dataset to be loaded to the raster attribute.
    ' OID—The ObjectID of the feature to be edited.
    
    'Get workspace for editing.
    Dim dataset As IDataset = CType(featureClass, IDataset)
    Dim workspaceEdit As IWorkspaceEdit = CType(dataset.Workspace, IWorkspaceEdit)
    workspaceEdit.StartEditing(False)
    workspaceEdit.StartEditOperation()
    
    Dim feature As IFeature = featureClass.GetFeature(OID)
    'Find raster field index.
    Dim iRasterField As Integer = 0
    Dim i As Integer
    For i = 0 To feature.Fields.FieldCount - 1 Step i + 1
        If feature.Fields.get_Field(i).Type = esriFieldType.esriFieldTypeRaster Then
            iRasterField = i
            i = 1000
        End If
    Next
    
    'Create raster value with input raster dataset.
    Dim rasterValue As IRasterValue = New RasterValueClass()
    rasterValue.RasterDataset = rasterDataset
    
    'Set raster value to the raster field.
    feature.set_Value(iRasterField, rasterValue)
    feature.Store()
    
    'Stop editing and save edits.
    workspaceEdit.StopEditOperation()
    workspaceEdit.StopEditing(True)
End Sub