Как создавать шейп-файлы

VBA взлетит ?

Public SubCreate_Test_ShapeFile()

Dim ShapeFile As Object

Set ShapeFile = CreateObject("IndorGIS.ShapeFile")
ShapeFile.FileName = "c:\Test.Shp"
ShapeFile.CreateNew(stPoint)
For i = 1 To 1000
ShapeFile.Records.Append
ShapeFile.Records.Shape.X = Rnd
ShapeFile.Records.Shape.Y = Rnd
ShapeFile.Records.Post
Next
ShapeFile.Save
ShapeFile.Close

End

Дело в том, что нужно в географическую схему запихнуть карту, которая я так понял создается с помощью шейп-файла. У меня есть макет в кореле, пытался его конвертировать через vextractor, но при отображении ее в географической схеме она значительно отличается от оригинала, размытая.