Public Sub bodyy()
    Dim pLayer As IFeatureLayer
    Dim pFC As IFeatureClass
    Dim pointCol As IPointCollection
    Dim bod As IPoint
    
    Set pLayer = getLayer("body")
    Set pFC = pLayer.FeatureClass
    
    Set bod = New Point
    bod.X = 1000
    bod.Y = 2000

    Dim feat As IFeature
    Set feat = pFC.CreateFeature
    Set feat.Shape = bod 'pointCol
    feat.Store
End Sub