[vb] Gestione errori...come ?

[evil80]

Ciao,
ho un problema (credo concettuale) riguardo la gestione degli errori in visual basic.

ho scritto una piccola classe di prova (CPersona)

Definizione di CPersona :

private mNome as string

private enum Errori
 ErroreNome=0
end enum

Public Property Get Nome() as string
    Nome=m_nome
end Property

Public Property Let Nome(byval Value as string)
   If value="" Then
	Err.Raise Errori.ErroreNome,"CPersona.Nome","Nome non valido"
   else
	mNome=Value
   end if
end Property

poi nel form

Private Sub Com_Click()
	On Error GoTo GestioneErrori
	dim pers as new CPersona

	pers.Nome=txtNome.Text
    	Exit Sub
GestioneErrori:
	lblErrori.Caption=Err.Description
End Sub

ora non so se sbaglio io,ma se nel controllo txtNome non inserisco niente,non dovrebbe
comparire la scritta "Nome non valido" nella lblErrori del Form ???

Dove sbaglio ?
Non funziona così la gestione degli errori ?

A me invece veniva scritta nella lblErrori una frase tipo "Tipo non corrispondente..." o
qualcos'altro ora sinceramente non ricordo,visto che le prove le ho fatte ieri e adesso
mi sono scritto il codice a mano in notepad (quindi se ho commesso errori sintattici di
linguaggio qui,ieri non li ho commessi....quindi non dipende da questo).
Penso proprio di aver commesso qualche errore logico !

Grazie.