Du mußt ja erstmal der Varibale importLayer etwas zuweisen.
set importLayer = project.SearchLayerByName("Deutschland Kreise 2004")
importLayer.loadlayer
Nochmal kurz zur erklärung wegen "LoadLayer", das muß man nicht gleich kapieren ;-)
Wenn man in RegioGraph einen Layer aus den Templates ins Projekt zieht, wird dieser Layer zwar im Projekt angezeigt, ist aber noch nicht in den "Hauptspeicher" geladen.
Dies wurde so gemacht, da es lange dauert einen jenachdem sehr großen Layer zu laden. Über die Funktion LoadLayer ist das ganze besser steuerbar.
So würde der Code lauten um eine Layer aus dem Projekt auf eine Aktivierte Kartenbox an die oberste Position zu ziehen
Dim clay As rgLayer
Dim layername As String
layername = "Europa Seen"
Set clay = project.SearchLayerByName(layername)
clay.LoadLayer
ActiveMap.AddLayer clay.LayerKey, 0