Comment en peut-il nommé une exception vb ?

Bonjour,

créer une exception nommeé erreurage qui se déclenche lors de la saisie d un age négatif :


CLASSE :

Public Sub New( ByVal n As String, ByVal p As String, ByVal a As Integer)

Me.nom = n
Me.prenom = p

If a <= 0 Then
Throw New Exception(" age n'est pa valide ")
Else
Me.age = a
End If
cpt = cpt + 1
End Sub


MODULE :

Try
listformateur.Add(New formateur(T1.Text, T2.Text, T3.Text, a, T4.Text, T5.Text))
Catch ex As Exception
MsgBox("age négative")
End Try