VB - Autostarteintrag schreiben

Imports Microsoft.Win32

Private Sub schreibeinautostart(ByVal programmname As String, ByVal pfadzuexe As String)
        Try
            Registry.SetValue("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", programmname, pfadzuexe, RegistryValueKind.String)
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler")
        End Try
    End Sub