'in dem Klassenmodul
private m_sErrorNessage as string
private m_iErrorNumber as integer
 
Public Property Get ErrorMessage (optional iFnummer as integer) as string
           iFnummer = m_iErrorNumber  
           Error = m_iErrorNumber  & "   " &  m_sErrorNessage 
end property
 
'Das folgende Property kann auch durch eine Function ersetzt werden. _
Dazu muss jedoch der Aufruf geändert werden
private Property FehlerHandle(byval iNummer as integer, sMessage as string)
    m_iErrorNumber =iNummer 
    m_sErrorNessage =sMessage 
end Property

public Function Test()
    on error goto err_Test
 
'code
 
on Error goto 0
exit Function
err_Test:
FehlerHandle (err.number)=err.description
end Function

sub Aufruf()
 Dim x as Object, iDummy as integer,sMeldung as string
 set  x=createobject("dllname.Klassenname")
x.Test 'Function in dll ausführen
sMeldung =x.ErrorMessage (iDummy )
if iDummy >0 then msgbox sMeldung 
end Sub