Public Sub New (ByVal MyString As String)
  ...
End Sub

' Eine erstellbare COM-Klasse muss eine Public Sub New() 
' ohne Parameter aufweisen. Andernfalls wird die Klasse 
' nicht in der COM-Registrierung registriert und kann nicht 
' über CreateObject erstellt werden.
Public Sub New()
   MyBase.New()
End Sub

Public Overrides Sub New (ByVal MyString As String)
  ...
End Sub

Public Class Class1
 
    Dim paramstring As String = ""
 
    Public Sub New()
        MyBase.new()
    End Sub
 
    Public Sub New(ByVal str As String)
        MyBase.new()
        If Not String.IsNullOrWhiteSpace(str) Then paramstring = str
    End Sub
End Class

Private mMyObjekte As New List(Of MyClass2)

Dim MyOBJ as New mMyObjekte()
MyOBJ.P1="P1"
MyOBJ.P2="P2"
MyOBJ.P3="P3"
...
mMyObjekte.Add(MyOBJ)

For Each mObjekteX As MyClass2 in mMyObjekte
   mObjekteX.DoSomething
Next

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist