' Definir a classe que vai tratar o erro específico

Public Class MyParameterOutOfRangeException

  Inherits Exception

  Public Sub New( )

MyBase.New(“O valor passado em  MyParameter " _

& " está for a de limite. O valor deverá estar entre

& " 10 e 100.")

  End Sub

End Class

' ... 

____//______

' Definição do método que possa disparar a nossa excepção

Public Sub SomeMethod(ByVal MyParameter As Integer)

' Assegurar que o argumento é válido.

If (MyParameter < 10) Or (MyParameter > 100) Then

Throw New MyParameterOutOfRangeException( )

End If

' Corpo do método

' ...

End Sub

Public Sub SomeCaller( )

 Try

SomeMethod(500)

Catch e As MyParameterOutOfRangeException

' ...

 End Try

End Sub