Problem with Moving Reference File

Hi All,

I am having issues with Moving a Reference file. 

I am trying to Insert the Default Model into a Sheet Model, Scale it, then Move it to around the location of the Drawing Sheet (XY = 18,50)

The Code...

Set oRef = ActiveModelReference.Attachments.Add(sFileToImport, "Default", "DistributionDesign", "Design Extract", oPoint, oPoint)
oRef.Redraw msdDrawingModeErase
oRef.ScaleFactor = 0.5 
oRef.Rewrite
oRef.Redraw msdDrawingModeNormal
Dim distance As Point3d
oRef.Redraw msdDrawingModeErase
Dim oOrigin As Point3d
oOrigin.X = 18
oOrigin.y = 50
oOrigin.z = 0
distance = Point3dSubtract(oOrigin, oRef.Range(True).Low)
oRef.Move distance, True
oRef.Rewrite
oRef.Redraw msdDrawingModeNormal

It is moving the reference, but not as it should. I want the lowest part of the Reference File - which according the Default Model is (952082.7161, 6242208.3894), to move to (18, 50).

What it does, is moves the 0,0 point to 18,50

I have attached the DGN for reference.

Any help would be appreciated. I don't know what I am doing wrong

Thanks in Advance!