VBA ArcGis 9.3

[kog9]

Ребята добрый день. Нужна помощь, помогите найти ошибку в коде. Код на VBA ArcGis 9.3.
Не как не могу понять в чем проблема. Заранее большое спасибо. Только начинаю пытаться программировать

Sub AddPoint()
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pFeatureLayer As IFeatureLayer
Dim pDataset As IDataset
Dim edit As IEditSketch
Dim p As IPoint
Set edit = pEditor
Set p = New Point
Dim x As Double
Dim y As Double
x = 56.56757
y = 26.45345
p.PutCoords x, y
edit.AddPoint p, True
End Sub