How to reproject in VBA of ArcMap

Dim pSpatialRefFact As ISpatialReferenceFactory
Dim pProjCoordSys As IProjectedCoordinateSystem
Dim point As WKSPoint

Set pSpatialRefFact = New SpatialReferenceEnvironment
Set pProjCoordSys = pSpatialRefFact.CreateESRISpatialReferenceFromPRJFile("Test.prj")
point.X = 627106.5
point.Y = 4484124.4
pProjCoordSys.Inverse 1, point
Debug.Print "->", point.X, point.Y
pProjCoordSys.Forward 1, point
Debug.Print "<-", point.X, point.Y
Set pProjCoordSys = Nothing
Set pSpatialRefFact = Nothing

Un tester orgulloso de su trabajo (lo que implica un programador no tan orgulloso).

Daniel Isaias comprobando que el sistema realmente cargue los temas.

STAR ALPHA TESTER

No pues ahi esta mi hijo testeando mi software. Lastima que no sabe aun escribir en papel y se le olvido grabar el notepad con la lista de errores... ni pex a que testee de nuevo.