Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Try
            ' 入力内容を取得、チェック
            If String.IsNullOrEmpty(TxtID.Text) Or
            String.IsNullOrEmpty(TxtName.Text) Or
            String.IsNullOrEmpty(TxtEMail.Text) Or
            String.IsNullOrEmpty(TxtInviter.Text) Then
                ' 未入力の内容がある
                Throw New NotFilledException
            End If

            Dim id As Integer = TxtID.Text              ' 数値以外のときはInvalidCastExceptionスロー
            Dim name As String = TxtName.Text
            Dim email As String = TxtEMail.Text
            Dim inviterid As Integer = TxtInviter.Text  ' 数値以外のときはInvalidCastExceptionスロー

            ' 登録実行
            Select Case Service.RecordUser(id, name, email, inviterid)
                Case RecordUserResultEnum.Success
                    ' 登録成功
                    LblError.Text = "登録成功"
                Case RecordUserResultEnum.DuplicateIDError
                    ' IDが重複している
                    LblError.Text = "IDが重複しています。異なる値を入力してください。"
                Case RecordUserResultEnum.InviterNotFoundError
                    ' 紹介者がいない
                    LblError.Text = "入力された紹介者いません。"
            End Select

            ' 異常系の処理はここに集約
        Catch ex As NotFilledException
            ' 未入力の内容あり
            LblError.Text = ex.Message
        Catch ex As InvalidCastException
            ' 数値以外が入力された
            LblError.Text = "不正な値が入力されています"
        Catch ex As oracle.ManagedDataAccess.Client.OracleException
            ' DBアクセス時にエラー発生
            LblError.Text = "DBアクセス時にエラーが発生しました。正しく登録されていない可能性があります。"
        End Try

        ' GridView再読み込み
        GridView1.DataBind()
    End Sub
End Class