Try
  Dim RegistryKnoten As String = "Software\MeineFirma\MeineSoftware 1.0"
  Dim RK As RegistryKey = Registry.LocalMachine.OpenSubKey(RegistryKnoten)
  Dim RKKey As String = RK.GetValue("RegKey").ToString
  RK.Close()
 
  If RKKey = "abc" Then
    MsgBox("erfolgreich")
  End If
 
Catch ex As Exception
  MsgBox("Fehler")
End Try

EALA FREYA FRESENA

Messagebox.Show(ex.Tostring)

EALA FREYA FRESENA

EALA FREYA FRESENA

--
while (!asleep()) sheep++;