In fact, try just doing:
VB Code:
  1. Private Declare Function DoOrganizeFavDlg Lib "shdocvw" ( _

  2.                 ByVal hWnd As Long, _

  3.                 ByVal lpszRootFolder As String) As Long

  4.  
  5. Private Sub Command1_Click()

  6.     DoOrganizeFavDlg Me.hWnd, vbNullString

  7. End Sub
works on mine!