Непонятки со стандартным диалогом OpenFile (если инициализируешь ранее выбранным файлом) - VB

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

Стандартный диалог, никаких кастомизаций.
Новое для меня то, что я инициализирую его не просто предыдущей директорией

'OpenFile.sInitialDir = GetFileDir(TextSelectedFile.Text)

а ранее выбранным файлом.

len(Trim(TextSelectedFile.Text)) >  
        OpenFile.sFile = Trim(TextSelectedFile.Text)

Собственно код, который "ошибался".

CommandFileSelect_Click()
     OpenFile  OPENFILENAME
     lReturn  
     TargetPath  
    
    OpenFile.nStructSize = Len(OpenFile) 
    OpenFile.hWndOwner = .hwnd
    OpenFile.hInstance = App.hInstance
    OpenFile.sFilter =  & vbNullChar &  & vbNullChar & vbNullChar
    OpenFile.nFilterIndex = 
     len(Trim(TextSelectedFile.Text)) >  
        OpenFile.sFile = Trim(TextSelectedFile.Text)
    
        OpenFile.sFile = vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar
     
    OpenFile.nMaxFile = Len(vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar)
    OpenFile.sFileTitle = vbNullChar & Space$() & vbNullChar & vbNullChar
    OpenFile.nMaxTitle = Len(OpenFile.sFileTitle)
    
    OpenFile.sDialogTitle = 
    OpenFile.Flags = OFN_EXPLORER  OFN_LONGNAMES  OFN_NODEREFERENCELINKS  _
      OFN_PATHMUSTEXIST  OFN_FILEMUSTEXIST  _
      OFN_HIDEREADONLY  OFN_ENABLESIZING  OFN_ENABLEHOOK 

    lReturn = GetOpenFileName(OpenFile)

     lReturn =  
         Left(App.Path, )
         App.Path

    TargetPath = Trim(OpenFile.sFile)
    
     InStr(TargetPath, Chr()) >  
        TargetPath = Trim(Left(TargetPath, InStr(TargetPath, Chr()) - ))
     
    TextSelectedFile.Text = TargetPath
     Left(App.Path, )
     App.Path
 

Проблема получилась следующая:
Если начальное значение пути было коротким,
C:\111\test.pdf
а выбирался затем длинный путь, например:
C:\Documents and Settings\Дима\Рабочий стол\new.pdf
то TargetPath обрубался длиной предыдущего пути
C:\Documents a
и это несмотря на большой зарезервированный буфер:

OpenFile.nMaxFile = Len(vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar)

Я выкрутился (правда часа 2 экспериментировал), напихав в OpenFile.sFile "пустого места" через vbNullChar

OpenFile.sFile = Trim(TextSelectedFile.Text) & vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar
    OpenFile.nMaxFile = Len(OpenFile.sFile)

Ну вот не знаю, прав ли. Может сталкивался кто? Как правильно делать?

Решение задачи: «Непонятки со стандартным диалогом OpenFile (если инициализируешь ранее выбранным файлом)»

textual
                            Листинг программы 
                        
                            vbNullChar & vbNullChar
vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar