Option Explicit Const ssfWINDOWS = 36 Call Main() Sub Main() Dim shell Set shell = CreateObject("Shell.Application") Dim folder Set folder = shell.BrowseForFolder( 0, "Hello, COM(VBScript) World!", 0, ssfWINDOWS ) If ( Not folder Is Nothing ) Then Set folder = Nothing End If Set shell = Nothing End Sub