CST - Diode with VBA

Hi, I am trying to add a diode in the CST Studio Suite schematic by VBA but I don't get it to work, and the help section doesn't explain it very well. Can someone guide me? Right now I have the following:

Dim spiceLibraryName As String

With Block
   .Reset
   .Type("CircuitSemi\\Diode")
   .Position(0,0)
   .Name("MyDiode")
   .SetIntegerProperty("Model type", "1")
   spiceLibraryName = .ImportLibraryModel("my spice model path", "") '<- Here I have the path    to a .LIB file for my diode
   .SetStringProperty("Model name", spiceLibraryName)
   .Create
End With

It gives me the error:

"Error in macro execution, please check:
Unable to get block.
(spiceLibraryName = .ImportLibraryModel("my spice model", ""))"

Again "my spice model" is replaced with a valid path to a .lib file containing my model. Anyone knows how to do this properly?

Best regards, David​​​​​​​