Errori/Eccezioni in VB 6

[Hawke]

Ciao a tutti.

Purtroppo mi trovo a dover fare i conti con Visual Basic 6 per lavoro e siccome è la prima volta che lo uso ho un problema.
Sto scrivendo una DLL ed ho creato una "Class Module".
In un metodo di tale classe vorrei lanciare un'eccezione ma purtroppo non ci riesco. Ho cercato un po' su Internet ma tutti gli esempi che ho trovato non funzionano.
Il codice è il seguente:

Public Property Get getCode() As Byte
If Not initialized Then
Err.Raise(vbObjectError + 512 + ERRORS.TEST, "a", "desc")
Else
getCode = code
End If
End Property

Quando provo a compilare il compilatore mi segnala sempre l'errore
"Expected: ="

Qualcuno mi può dare una mano?

Grazie
HawkeLeon