vb6 read from registry

Salutare tuturor!
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.
Pot folosi ulterior liniile de cod in MS Access?
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

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


Sper sa mearga  

Am incercat in MS Access insa la linia aceasta:
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.

Tu ai nevoie de cod VBA, nu VB6.

Asa este, am nevoie de VBA, insa am incercat in VB intrucat il mai pricep cat de cat, sperand ca dupa ce va functiona sa-l transpun cu sintaxa de rigoare in VBA.