フィーチャクラスからワークスペースを取得

Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureLayer.FeatureClass

Dim pDataset As IDataset
Set pDataset = pFeatureClass

Dim pWorkspace As IWorkspace
Set pWorkspace = pDataset.Workspace