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