Private Sub Command1_Click()
    Dim MyShell   As New Shell  '申明并实例化SHELL对象
    Dim MyFolder  As Folder     '文件夹对象
    '显示文件夹浏览对话框
    Set MyFolder = MyShell.BrowseForFolder(0, "请选择文件夹：", 0)
    '如果该对象释放则退出过程，否则输出文件夹路径
    If MyFolder Is Nothing Then Exit Sub
    MsgBox MyFolder.Self.Path

End Sub

想让文本框里显示文件名 代码怎么写啊？