read from registry

Salutare tuturor!
Am pus problema mea si pe sectiunea de incepatori.
Ma adresez celor care vor sa-mi dea o mana de ajutor.
Am nevoie de cateva linii de cod care puse in ms access sa:
- citeasca daca in registry exista HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth"
- daca exista sa porneasca calc.exe
- daca nu exista sa incheie aplicatia msaccess
Am ceva vagi idei de vb6, asa ca am facut ceva incercari cu coduri de pe net, sunt pe aproape, dar nu este exact ce-mi trebuie.
Mai exact partea cu MsgBox registry_read ......... nu am nevoie ci doar sa declar key_path si key_name de care am nevoie.

Private Function registry_read(key_path, key_name) As Variant
Dim registry As Object
Set registry = CreateObject("WScript.shell")
registry_read = registry.regread(key_path & "\" & key_name)
End Function
Private Sub Form_Load()
On Error GoTo Err_Handler
MsgBox registry_read("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", "Auth")
Shell "C:\WINDOWS\System32\calc.exe"
Err_Handler:
End
End Sub

Colegul "junior" mi-a recomandat urmatorul cod:

Private Sub Form_Load()
Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth")
If regKey Is Nothing Then  
  MsgBox("Nu-i")
  App.End
Else
  Shell "C:\WINDOWS\System32\calc.exe"
End If
End Sub

insa pe linia:
Dim regKey As Object = My.Computer.Registry.CurrentUser.OpenSubKey("HKEY_CURRENT_USER\Software\VB and VBA Program Settings\Project\Options\", True).GetValue("Auth") zice ca ar fi o eroare de sintaxa.

Ma puteti ajuta?
Multumesc mult.

Sintaxa e:
https://msdn.microso...#code-snippet-1

Edited by csgabe, 23 January 2017 - 21:06.

Poate vrea cineva sa ma ajute.
Multumesc

Ah, scuze.
Incearca cu My.Computer.Registry.GetValue sau GetSetting:
https://msdn.microso...e(v=vs.90).aspx
https://msdn.microso...9(v=vs.90).aspx

Edited by csgabe, 24 January 2017 - 16:44.