ARCGIS VBA如何实现IDW插值

<P>各位大侠好，我有5个气象站10年的逐日资料，想通过IDW插值成栅格数据，为了实现批处理，我想通过ARCGIS VBA实现IDW插值，由于以前从未接触过VBA，希望大家帮忙。</P>
<P>在arcgis desktop help 中我搜索IDW找到了以下代码</P>
<P>ArcObjects example<BR>' Create the RasterInterpolationOp object<BR>Dim pInterpolationOp As IInterpolationOp<BR>Set pInterpolationOp = New RasterInterpolationOp</P>
<P>' Create the input point object <BR>Dim pInputDataset As IGeoDataset</P>
<P>' Calls function to open the point dataset from disk<BR>Set pInputDataset = OpenFeatureDataset("D:\SpatialData", "inputpoints")</P>
<P>' Define the search radius<BR>Dim pRadius As IRasterRadius<BR>Set pRadius = New RasterRadius<BR>pRadius.SetVariable 12</P>
<P>' Create the output dataset object<BR>Dim pOutputDataset As IGeoDataset</P>
<P>' Calls the method<BR>Set pOutputDataset = pInterpolationOp.IDW(pInputDataset, 3, pRadius</P>
<P>请问这个代码怎么在VBA中实现，因为我是0基础，希望能介绍得详细一点，谢谢了 </P>