Option Explicit
 
' löscht einen Schlüssel aus der Registry
Private Declare Function RegDeleteKey Lib "advapi32.dll" Alias _
  "RegDeleteKeyA" (ByVal hKey As Long, ByVal lpSubKey As String) As Long
 
Private Const ERROR_SUCCESS As Long = 0&
Private Const ERROR_FILE_NOT_FOUND As Long = 2&
 
Const HKEY_CURRENT_USER = &H80000001
 
 
Private Sub Command1_Click()
  On Error Resume Next
 
  Dim sPath As String, lRet As Long
 
  ' ********************
  ' Such-History löschen
  ' ********************
 
  ' Ort in der Registry wo die Eingabe aus dem Suchfenster gespeichert sind
  sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Doc Find Spec MRU"
 
  ' Eingaben aus der Registry löschen
  lRet = RegDeleteKey(HKEY_CURRENT_USER, sPath)
 
  ' Fehler aufgetreten?
  If lRet <> ERROR_SUCCESS Then
 
    ' gabs den Registry-Schlüssel nicht?
    If lRet = ERROR_FILE_NOT_FOUND Then
      MsgBox "Die Such-History wurde bereits gelöscht", vbInformation
    Else
      MsgBox "Die Such-History konnte nicht gelöscht werden.", vbExclamation
    End If
 
  Else
    MsgBox "Die Such-History wurde gelöscht.", vbInformation
  End If
 
  ' ********************
  ' Auführen-History
  ' ********************
 
  ' Ort in der Registry wo die Eingabe aus dem Ausführen-Dialog gespeichert sind
  sPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU"
 
  ' Eingaben aus der Registry löschen
  lRet = RegDeleteKey(HKEY_CURRENT_USER, sPath)
 
  ' Fehler aufgetreten?
  If lRet <> ERROR_SUCCESS Then
 
    ' gabs den Registry-Schlüssel nicht?
    If lRet = ERROR_FILE_NOT_FOUND Then
      MsgBox "Die Ausführen-History wurde bereits gelöscht", vbInformation
    Else
      MsgBox "Die Ausführen-History konnte nicht gelöscht werden.", _
        vbExclamation
    End If
 
  Else
    MsgBox "Die Ausführen-History wurde gelöscht.", vbInformation
  End If
 
End Sub

Viel Spass,
R@lf