'Calling line here...
PointResult = GetIntersectionPoint(CenterlineToSplitFeature.ShapeCopy, IntersectingFeature.ShapeCopy)
'Function code here...
Function GetIntersectionPoint(Line1 As IGeometry, Line2 As IGeometry) As IPoint
Dim pGeom As IGeometry
Dim pTopo As ITopologicalOperator
pTopo = Line1
'Here's the line in which I get the error...
pGeom = pTopo.Intersect(Line2, esriGeometryDimension.esriGeometryNoDimension)
Dim ppoints As IPointCollection
Dim ppoint As IPoint
ppoints = pGeom
If ppoints.PointCount > 0 Then
ppoint = ppoints.Point(0)