Layer laden per VBA

Hallo gemeinde,
ich habe ein VBA skript, das (einen zuvor erzeugten) shapefile als Layer in den Toc lädt. Klappt auch alle prima, nur wird der layer nicht gezeichnet (erst, wenn ich den erzeugten layer über "add Data"manuell nochmal lade, und dann auf den neu eingefügten layer zoome, zeichnet arcmap auch den automatisch hinzugefügten. Wenn ich das häckchen im check Button (im TOC) wegnehme hat es keinen Effekt. Was mache ich falsch. Hier mein Skript:


Set pWorkspaceFactory = New ShapefileWorkspaceFactory
Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(tbOutputPath, 0)
'Create a new FeatureLayer and assign a shapefile to it
Set pFeatureLayer = New FeatureLayer
Set pFeatureLayer.FeatureClass = pFeatureWorkspace.OpenFeatureClass(tbOutputFile)
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName
'Add the FeatureLayer to the focus map
Set pMxDocument = Application.Document
Set pMap = pMxDocument.FocusMap
pMap.AddLayer pFeatureLayer
pMxDocument.UpdateContents