Check if registry path exists or not in Windows Application using VB.Net

Here is result:

Private Sub CreatesKeys()
    Dim NumberAuto As String = My.Settings.AutoNumbers
    'CreateSubKey will create folder
    Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\EU Outsourcing\EasyXLS Trial for .NET", True)
    'Create Folder
    key.CreateSubKey("8.6.1")
    key.Close()
    'Create keys now
    Dim keyY As RegistryKey = Registry.LocalMachine.CreateSubKey("SOFTWARE\EU Outsourcing\EasyXLS Trial for .NET\8.6.1")
    keyY.SetValue("", "")
    NumberAuto += 1
    My.Settings.AutoNumbers = NumberAuto
    My.Settings.Save()
    My.Settings.Reload()
    keyY.SetValue("Install", NumberAuto)
    keyY.SetValue("InstallPath", "C:\EasyXLS\")
    keyY.SetValue("Key", "UXZ63-JP6M7-8G81B-?49?Y-NB63Z-80N?8-0DBGI-84E71-LD78A-CM")
    keyY.SetValue("RunTime", "0")
    keyY.Close()
End Sub
 
Private Sub CheckExistKey() 
    If Registry.LocalMachine.OpenSubKey("SOFTWARE\EU Outsourcing\EasyXLS Trial for .NET\8.6.0") Is Nothing Then
        MsgBox("Key not exist")
        CreatesKeys()
    Else
        MsgBox("Key exist")
    End If
End Sub