（VB.NET）Try〜Catch間から強制的にCatchへ飛ばす

Try

    Throw New Exception("エラーメッセージ")

Catch ex As Exception

    lblError.Text = ex.Message & " (" & ex.TargetSite.Name & ")"

End Try

エラー元のサブルーチン名はex.TargetSite.Nameで取れる