Public Delegate Sub makeDelegate(ByVal line As String)
    Public Delegate Sub makeDelegate2()
    <MarshalAs(UnmanagedType.FunctionPtr)> _
    Dim objDelegateWithStringParam As makeDelegate
    <MarshalAs(UnmanagedType.FunctionPtr)> _
    Dim objDelegateWithoutpar As makeDelegate2
    objDelegateWithStringParam = AddressOf meineFunction
    objDelegateWithoutpar = AddressOf meineFunction2