Late Set Workaround (Unable to provided typed object when setting object proper)

[MechMachineMan]

I'm hoping someone can provide me with some assistance.

What I'm trying to do is create a generic function that changes the object style after being called by a calling function, but works for various objects

This works fine in vba, but when I try to do it in the rule environment, it wants to force me to use a strongly type variable.

ie the code below does not work if oPL is not strongly typed. However, if you Dim oPL As PartsList, the code works just fine.

How do I get around this, so that I can use a generic object within a function, or is there someway to "late bind" the oPL object to a strong type USING the STRING of the type.

'Below code fails in vb.net/rule environment, but works fine in VBA.

Sub Main()
    Dim oSheet As Sheet
    oSheet = ThisApplication.ActiveSheet
    oNewPLStyle = some strongly type PartsListStyle object
    'Set oSheet = ThisApplication.ActiveSheet
    'Set oNewPLStyle = some strongly type PartsListStyle object

     Call ChangeStyle(oSheet.PartsLists, oNewPLStyle)
End Sub

Sub ChangeStyle(objColl As Object, oNewStyle As Object)
 For Each obj In objColl
   If Not obj.Style.Equals(oNewStyle) Then 
     MsgBox("here")
     obj.Style = oNewStyle
   End If
 Next
End Sub

[rossano_praderi]

Did you tried to use "variant"?

A Variant can hold absolutely everything. An Object is a narrower type than Variant and can only hold objects.