Как открыть папку из VB?

Public Declare Function ShellExecute Lib 'shell32.dll' Alias 'ShellExecuteA' _
    (ByVal Hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
'
Public Enum ShellExErrors
    ERROR_FILE_NOT_FOUND = 2
    ERROR_PATH_NOT_FOUND = 3
    ERROR_BAD_FORMAT = 11
    SE_ERR_ACCESSDENIED = 5
    SE_ERR_ASSOCINCOMPLETE = 27
    SE_ERR_DDEBUSY = 30
    SE_ERR_DDEFAIL = 29
    SE_ERR_DDETIMEOUT = 28
    SE_ERR_DLLNOTFOUND = 32
    SE_ERR_FNF = ERROR_FILE_NOT_FOUND
    SE_ERR_NOASSOC = 31
    SE_ERR_OOM = 8
    SE_ERR_PNF = ERROR_PATH_NOT_FOUND
    SE_ERR_SHARE = 26
End Enum
'
Private Sub Form_Load()
    folderName = 'C:Мои документы'
    If InStr(1, folderName , ' ') > 0 Then folderName = Chr(34) + folderName + Chr(34)
    retVal = ShellExecute(Me.Hwnd, 'Open', 'explorer.exe', folderName , '', 1&)
    If retVal <= 32& Then
        MsgBox 'Ошибка открытия папки «' + folderName + '»:' + vbCr + vbCr + _
        GetShellExError(retVal), vbCritical, 'Ошибка'
    End If
End Sub
'
Public Function GetShellExError(ByVal errcode As Long) As String
    Select Case errcode
        Case ShellExErrors.ERROR_BAD_FORMAT
            GetShellExError = 'The specified file could not be found.'
        Case ShellExErrors.ERROR_FILE_NOT_FOUND
            GetShellExError = 'The specified directory could not be found.'
        Case ShellExErrors.ERROR_PATH_NOT_FOUND
            GetShellExError = 'The specified executable file (.EXE) was somehow invalid.'
        Case ShellExErrors.SE_ERR_ACCESSDENIED
            GetShellExError = 'Windows denied access to the specified file.'
        Case ShellExErrors.SE_ERR_ASSOCINCOMPLETE
            GetShellExError = 'The filename association is either incomplete or invalid.'
        Case ShellExErrors.SE_ERR_DDEBUSY
            GetShellExError = 'The DDE action could not run because other DDE actions are in process.'
        Case ShellExErrors.SE_ERR_DDEFAIL
            GetShellExError = 'The DDE transaction failed.'
        Case ShellExErrors.SE_ERR_DDETIMEOUT
            GetShellExError = 'The DDE transaction was not completed because the request timed out.'
        Case ShellExErrors.SE_ERR_DLLNOTFOUND
            GetShellExError = 'The specified DLL file was not found.'
        Case ShellExErrors.SE_ERR_FNF
            GetShellExError = 'The specified file could not be found.'
        Case ShellExErrors.SE_ERR_NOASSOC
            GetShellExError = 'There is no program associated with the specified type of file.'
        Case ShellExErrors.SE_ERR_OOM
            GetShellExError = 'Windows has insufficient memory to perform the operation.'
        Case ShellExErrors.SE_ERR_PNF
            GetShellExError = 'The specified directory could not be found.'
        Case ShellExErrors.SE_ERR_SHARE
            GetShellExError = 'A sharing violation occured.'
        Case Else
            GetShellExError = '?'
    End Select
End Function