Listing D
PublicClass BizTierException
   Inherits System.ApplicationException
 
 
   PublicSubNew(ByVal message AsString)
       MyBase.New(message)
   EndSub
 
 
   PublicSubNew(ByVal message AsString, ByVal innerException As Exception)
       MyBase.New(message, innerException)
   EndSub
EndClass