Spt = Split(SubModul, ";")
 
 For x = 0 To UBound(Spt)
 
    If CheckDLL(Spt(x)) = True Then
 
      PluginDll.Add xFile
      PluginClass.Add Splt(x)
 
      Set Obj = CreateObject(Splt(x))
 
         If Autoexec = "" Then
 
            Autoexec = Splt(x)
 
         Else
 
            Autoexec = Autoexec & ";" & SubModul
 
         End If
 Next x