Public Class ClassTangens
    Implements ICalcNetInterface.ICalcInterface
 
    Private _lang As String
    ''' <summary>New instance of this class.</summary>
    ''' <param name="lang">Language as string. e.g. DE-de</param>
    ''' <remarks></remarks>
    Public Sub New(ByVal lang As String)
        _lang = lang.Substring(0, 2).ToLower
    End Sub
 
    Public Sub New()
 
    End Sub
....

Public Class ClassPlugInConnentor
 
    Public Shared Function LoadPlugIn(ByVal strFile As String) As List(Of _
      ICalcNetInterface.ICalcInterface)
 
        Dim vPlugIn As New List(Of ICalcNetInterface.ICalcInterface)
        Dim a As System.Reflection.Assembly
        Try
            a = System.Reflection.Assembly.LoadFile(strFile)
        Catch ex As Exception
            'ausnahme wird ausgelöst, wenn versucht wird eine ungültige datei 
            ' zu laden
            Return Nothing
        End Try
 
        Dim types() As Type = a.GetTypes
 
        For Each pType As Type In types
            'hier wird versucht die dll zu laden.
            'dies funktioniert nur, wenn die dll auch das selbe interface 
            ' implementiert
            'wie der host vorgiebt
            Try
                vPlugIn.Add(CType(a.CreateInstance(pType.FullName), _
                  ICalcNetInterface.ICalcInterface))
                'dll ist ein gültiges plugin
 
            Catch ex As Exception
 
            End Try
        Next
        Return vPlugIn
    End Function
End Class

Public Sub New()
 
    End Sub