vb.net - Case & Try 文の選択無限ループ

Question

vb.net プロジェクトでレポートを印刷しようとすると、必要なフィールドがすべて入力されているかどうかを確認するコードがあります。入力されていない場合は、ユーザーに通知するメッセージ ボックスが表示されます。彼らが「OK」を押したら、レポートをロードするコードの実行を停止するプログラムが必要です。現時点では、代わりにTry関数とSELECT CASE繰り返しを通過する無限ループに陥っています。

これを止めるには何を変える必要がありますか？問題が何であるか、およびコードの次のセクションが次々とループし続ける理由を理解できません

Try
    Select Case checkwhat.ToUpper
        Case "SUPPLIER"
            If cmbSuppliers.Text.Trim = "" Then
                MsgBox("Please select a supplier", MsgBoxStyle.OkOnly, "No Supplier Selected")
                Return False
                Exit Try
            End If
        Case "RB6B"
            check("SUPPLIER")
            If check("SUPPLIER") = True Then  Else Exit Sub
            createWorkTable("SUPPLIERS-TERRITORY-LS")
            regReport("rTerritoryWTableCrosstabB.rpt", "", con, Me.MdiParent, cReport, True)
            fillPms(cReport, "Sales by Territory by Supplier", "For " & cmbSuppliers.Text.Trim, "", "AOT02")