Dim RegKey As RegistryKey
        Dim name As String
        regKey = Registry.LocalMachine.OpenSubKey("SOFTWARE\Anwendungsname", _
          True)
        If Not regKey Is Nothing Then
            name = (regKey.GetValue("name"))
            If Not name Is Nothing Then
                Exit Sub
            End If
        End If