Коллизия с Expected Array в SHBrowseForFolder - VB

Формулировка задачи:

В проге используется модуль для работы с SHBrowseForFolder с кнопкой «Создать новую папку» и заданием стартовой папки. Там есть такие строки:

  lpIDList = SHBrowseForFolder(tBrowseInfo)
    If (lpIDList) Then
        sBuffer = Space(MAX_PATH)
        SHGetPathFromIDList lpIDList, sBuffer
        sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
        BrowseForFolder = sBuffer
    Else
        BrowseForFolder = ""
    End If

Прога прекращает работу с сообщением “Expected Array” и отмечает этот Left. При работе в виде отдельной проги с кнопкой на пустой форме и с только этим модулем всё прекрасно работает. В другом модуле есть такое:

Public Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)
Public Const SPI_GETWORKAREA = 48
Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Похоже что конфликт из-за этого ? На одном англоязычном форуме утверждали на аналогичный вопрос (в Right была проблема) что проблема в этом. Как решаются такие коллизии? Пытаться другим способом получать инфу о свободной зоне дестопа? Чтоб не было

Public Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Решение задачи: «Коллизия с Expected Array в SHBrowseForFolder»

textual
                            Листинг программы 
                        
                            sBuffer = VBA.left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)