thanks for the replay It keeps telling me that the
Dim acDoc As AcadDocument
Dim objBlock As AcadBlockReference
Dim inpt As Double
inpt = (Double[])acDoc.Utility.GetPoint(System.Type.Missing,"Pick a point")
objBlock = acDoc.ModelSpace.InsertBlock(inpt, "c:\eq-flow.dwg", 1, 1, 1, 0)
it tells me that Double is an object and can't be an exprestion and that the idenifier is exspected