Sub Main() Dim shell As New Shell32.shell Dim vRootFolder vRootFolder = Shell32.ShellSpecialFolderConstants.ssfWINDOWS Dim folder As Shell32.folder Set folder = shell.BrowseForFolder(0, "Hello, COM(VBA) World!", 0, vRootFolder) If Not folder Is Nothing Then Set folder = Nothing End If Set shell = Nothing End Sub