VBA的文件选择对话框，在VB中不能用

nanhaifeng

以下是VBA中的文件选择对话框，运行OK。但在VB中不能使用，请大神指教VB中该如何实现同样的功能。
Private Sub CommandButton5_Click()
    On Error Resume Next
    Dim stmedd As String
    Dim strTempSavePath As String
    Dim directory As String
   
    stmedd = " Please select the folder "
    Set obmapp = CreateObject("shell.Application").BrowseForFolder(0, stmedd, &H1)
    If Not obmapp Is Nothing Then
        If Right(obmapp.self.path, 1) = "\" Then
            directory = obmapp.self.path
        Else
            directory = obmapp.self.path & "\"
        End If
    Else
        Exit Sub
    End If
    FolderPath_std = directory
    Cells(12, 1) = directory
End Sub