Dim x As String = "WindowsApplication1.Form2(Form2.Test.Mitglied)"
 
        Dim _fi As Integer = x.IndexOf("(") + 1
        Dim _li As Integer = x.LastIndexOf(")")
 
        Dim b As String
 
        If _fi <> -1 Then
            b = x.Substring(_fi, _li - _fi)
        End If
 
        Dim y() As Object = b.Split(",")                        ' so gehts nicht
        'Dim y() As Object = {Form2.Test.Mitglied}  ' so funktionierts !!!
 
        Dim v As Form = Activator.CreateInstance(Type.GetType( _
          "WindowsApplication1.Form2"), y)
        v.Show()