VBA and Microstation Update 11

I have a macro working correctly with the Update 10 but not working anymore with Update11........

Dim oItemPropHandler As ItemTypePropertyHandler
Dim oItemLibs As ItemTypeLibraries
Dim oItemLib As ItemTypeLibrary
Dim result As String
Dim result2 As String
Dim result3 As String
Dim oItems As Items
Dim oItem As ItemType
Dim oEE As ElementEnumerator
Dim BSP As Element

Set oItemLibs = New ItemTypeLibraries
Set oItemLib = oItemLibs.FindByName("TOTO")
Set oItem = oItemLib.GetItemTypeByName("TUTU")
Set oEE = ActiveModelReference.GetSelectedElements
Do While oEE.MoveNext
Set BSP = oEE.Current
Set oItems = BSP.Items
oItems.Refresh ("TOTO")
Loop

Microstation Connect crashes at the line       

" oItems.Refresh ("TOTO")"