新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    MsgBox BrowseFolders(Me, "我是标题")
End Sub

新建模块 modOpenFile.bas，代码：

运行结果：

C:\Documents and Settings\