Option Explicit
 
Private Declare Function RegCloseKey Lib "advapi32.dll" ( _
  ByVal hKey As Long) As Long
 
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" ( _
  ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
 
Private Declare Function RegDeleteValue Lib "advapi32.dll" Alias _
  "RegDeleteValueA" (ByVal hKey As Long, ByVal lpValueName As String) As Long
 
Const HKEY_CURRENT_USER = &H80000001
 
Private Function RemoveRegKey(hKey As Long, sPath As String, _
  sValue As String) As Boolean
  On Error Resume Next
 
  Dim vRet As Variant
 
  Call RegCreateKey(hKey, sPath, vRet)
  RemoveRegKey = (RegDeleteValue(vRet, sValue) = 0)
  Call RegCloseKey(vRet)
End Function
 
Private Sub ClearURLList()
  On Error Resume Next
 
  Dim I As Long
 
  I = 1
  Do
    If RemoveRegKey(HKEY_CURRENT_USER, _
      "Software\Microsoft\Internet Explorer\TypedURLs", _
      "url" & CStr(I)) = False Then
      Exit Do
    End If
    I = I + 1
  Loop Until False
 
End Sub

Viel Spass,
R@lf