Razzi, aiutatemi voi vi prego.

Ho il seguente problema:

se creo una classe (modulo di classe):

nome:Persona
------------------------------------------------
Option Explicit
Private Nome as String

Property let Nome(Valore as String)
If Valore="" then Err.Raise 600,,"Descrizione"
End Property
------------------------------------------------

Poi ad esempio all'interno di una form dichiaro una variabile di questo tipo:

------------------------------------------------
Private Sub Form_Load()
Dim Pers as Persona
Set Pers=New Persona
Pers.Nome=""
End Sub
------------------------------------------------

Ovviamente avendo specificato nella Property Let Nome che se passo una stringa vuota mi spara un errore eseguendo il programma scatenerà subito l'errore "600 Descrizione".

Ora il mio problema è il seguente: Come diavolo faccio a far uscire questo errore dalla classe?
Se io ad esempio facessi questo:

------------------------------------------------
Private Sub Form_Load()
Dim Pers as Persona
Set Pers=New Persona
On Error Resume Next
Pers.Nome=""
End Sub
------------------------------------------------

Quello che di logica dovrebbe accadere è che l'istruzione "Set Pers=New Persona" genera errore ma lo gestisce ignorandolo e passando oltre, invece non va così, la classe si tiene l'errore al suo interno e blocca comunque l'esecuzione dell'applicazione.

Se qualcuno di voi sa dirmi come far uscire l'errore dalla classe ne sarei felicissimo!

Grazie ancora :quote: