Option Explicit Main() Procedure Main() Dim folder Dim shell shell = CreateOleObj("Shell.Application") folder = shell.BrowseForFolder( 0, "Hello, COM(UWSC) World!", 0, 36 ) Fend