AutoCAD Inventor :: Add Items To IMate Matchlist With VB?

i am trying to add some items in the iMate matchlist. But with the code i use below i recieve a runtime '10' error:

This array is fixed or temporarily locked.
 
Function PlaceiMates()Dim oApp As ApplicationSet oApp = ThisApplicationIf ThisApplication.ActiveDocumentType = kPartDocumentObject Then Dim odoc As PartDocument Set odoc = oApp.ActiveEditDocument Dim oInsert As Object Dim oInsertiMate As InsertiMateDefinition Set oInsert = ThisApplication.CommandManager.Pick(kPartEdgeFilter, "Pick Edge for Imate") Set oInsertiMate = odoc.ComponentDefinition.iMateDefinitions.AddInsertiMateDefinition(oInsert, True, "0mm", , "Test") Dim ml(1) As String ml(0) = "pl" oInsertiMate.MatchList = mlEnd IfEnd Function