Public Class Class1
    Public Shared Function GetHalloWelt() As String
        Return "Denkste. Diese DLL hat keine Lust auf Hallo-Sagen!"
    End Function
 
    Public Sub EineReaktion(ByRef MyString As String)
        MyString = "Hallo, ihr Lieben"
    End Sub
End Class

    'shared 
    MsgBox(ClassLibrary1.Class1.GetHalloWelt)
    'instance
    Dim cl1 As New ClassLibrary1.Class1
    Dim str As String = ""
    cl1.EineReaktion(str)
    MsgBox(str)