Hi all,

I have a slight problem. I wrote something for use in 2007 and i made it general so that when you change versions it would not affect the program. Basically I have a Parcel declared as a VB object. I then set this later to be an actual parcel. However my problem comes when I am trying to rename it. I run this in 2007 and it works just fine. However the same line of code gives me an "access is denied" message box. Basically this is what I have.

Dim Parcel As Object
{ ...stuff to get the parcel... }
Parcel.Name = Textbox1.Value & "-" & Parcel.Name

Again, this works fine in 2007, but not in 2008. I also have a case statement that determines that it is in 2008 in case you were curious.

Select Case AcadVer
Case Is = "16"
sAppName = "AeccXUiLand.AeccApplication.3.0"
Case Is = "17.0"
sAppName = "AeccXUiLand.AeccApplication.4.0"
Case Is = "17.1"
sAppName = "AeccXUiLand.AeccApplication.5.0"
Case Else
MsgBox "Invalid Civil3D version, exiting."
Exit Sub
End Select

Thank you very much for the help.