Imports System.IO 
Imports System.Runtime.InteropServices 
 
<ClassInterface(ClassInterfaceType.AutoDual)> _ 
Public Class cImage 
 
    Public Function Hallo() As String 
        Hallo = "Hallo Welt!" 
    End Function 
 
End Class

Public Sub test()
 
Dim text As String
Dim object As ImageMerge.cImage
Set object = CreateObject("ImageMerge.cImage") ' beim debuggen kommt er hier 
' auf den Fehler 429
 
text = object.Hallo ' wenn ich die obere zeile auskommentiere kommt hier der 
' fehler 91.
 
End Sub