how to enable xaml browser application through problematically vb.net for Internet Explorer

Dear Exports,

Below code is not working after deployment. we are using VS 2012 WPF browse application with VB scripts

Dim i As Integer = -1
        Dim s1 As String = "Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3"
        Try
            Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(s1)
            If key IsNot Nothing Then
                i = CInt(key.GetValue("2400"))
            End If
        Catch
        End Try
        If i > 0 Then
            Try
                Dim key As RegistryKey = Registry.CurrentUser.OpenSubKey(s1, True)
                If key IsNot Nothing Then
                    key.SetValue("2400", 0)
                End If
            Catch
            End Try
        End If

Thanks & Regards Manoj Patel