<code>Dim lPos As Long
Dim sDLLProjectName As String
 
<font color=green>' letzten Backslash suchen
' falls nicht vorhanden nach : suchen</font>
lPos = InStrRev(sDLLName, "")
If lPos < 1 Then lPos = InStr(sDLLName, ":")
If lPos > 0 Then
  sDLLProjektName = Mid$(sDLLName, lPos + 1)
Else
  sDLLProjektName = sDLLName
End If
 
<font color=green>' Dateiendung entfernen</font>
lPos = InStrRev(sDLLProjectName, ".")
If lPos > 0 Then
  sDLLProjectName = Left$(sDLLProjectName, lPos - 1)
End If
 
<font color=green>' Zugabe von mir: Verweis erstellen</font>#
Dim Objekt As Object
Set Objekt = CreateObject(sDLLProjectName & ".Class1")</code>