سلام
کمتر دیده شده که از دستور when در catch استفاده بشه اما این دستور خیلی کاربردیه به مثال پایین توجه کنید:
Dim a As Int16 = 32766
Dim b As Int16 = 2
Try
a += b
Catch ex As Exception When b > 1
MessageBox.Show(ex.ToString)
Finally
End Try