Переписать программу с использованием Try Catch

Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim InpName As String
        For i = 1 To 5
            InpName = InputBox("У вас есть 5 попыток ")
            If (InpName = "h2frw2") Or (InpName = "H2FRW2") Then Exit For
                    Next i
        TextBox1.Text = ""
        Me.Close()
        Form2.ShowDialog()
    End Sub
End Class

Try
            Catch ex As Exception
                MsgBox(ex.Message, "Неверно введен код! Обратите внимание на регистр букв")
            End Try

            If (InpName = "h2frw2") Or (InpName = "H2FRW2") Then Exit For

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim i As Integer
        Dim InpName As String
        For i = 1 To 5
            Try
                InpName = InputBox("У вас есть 5 попыток ")
                If Not InpName.ToLower.Equals("h2frw2") Then Throw New Exception ' если ввели неверно, генерится исключение и мы вылетаем  в блок Catch
                Exit For ' мы ввели все верно и выходим из цикла
            Catch ex As Exception
                MsgBox(ex.Message & "Неверно введен код! Обратите внимание на регистр букв", MsgBoxStyle.Exclamation)
            End Try
        Next i
        'TextBox1.Text = ""
        'Me.Close()
        'Form2.ShowDialog()
    End Sub