'OpenFile.sInitialDir = GetFileDir(TextSelectedFile.Text)

    If len(Trim(TextSelectedFile.Text)) >  0  Then
        OpenFile.sFile = Trim(TextSelectedFile.Text)

Private Sub CommandFileSelect_Click()
    Dim OpenFile As OPENFILENAME
    Dim lReturn As Long
    Dim TargetPath As String
    
    OpenFile.nStructSize = Len(OpenFile) '(OpenFile)
    OpenFile.hWndOwner = Me.hwnd
    OpenFile.hInstance = App.hInstance
    OpenFile.sFilter = "PDF (*.pdf)" & vbNullChar & "*.pdf" & vbNullChar & vbNullChar
    OpenFile.nFilterIndex =  1 
    If len(Trim(TextSelectedFile.Text)) >  0  Then
        OpenFile.sFile = Trim(TextSelectedFile.Text)
    else
        OpenFile.sFile = vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar
    End If
    OpenFile.nMaxFile = Len(vbNullChar & Space$(MAX_PATH) & vbNullChar & vbNullChar)
    OpenFile.sFileTitle = vbNullChar & Space$( 512 ) & vbNullChar & vbNullChar
    OpenFile.nMaxTitle = Len(OpenFile.sFileTitle)
    'OpenFile.sInitialDir = GetFileDir(TextSelectedFile.Text)
    OpenFile.sDialogTitle = "Select a file"
    OpenFile.Flags = OFN_EXPLORER Or OFN_LONGNAMES Or OFN_NODEREFERENCELINKS Or _
      OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST Or _
      OFN_HIDEREADONLY Or OFN_ENABLESIZING Or OFN_ENABLEHOOK ' Or OFN_CREATEPROMPT
'========================================
    lReturn = GetOpenFileName(OpenFile)
'========================================
    If lReturn =  0  Then
        ChDrive Left(App.Path,  1 )
        ChDir App.Path
        Exit Sub
    End If
    TargetPath = Trim(OpenFile.sFile)
    'выправляем глюк
    If InStr(TargetPath, Chr( 0 )) >  0  Then
        TargetPath = Trim(Left(TargetPath, InStr(TargetPath, Chr( 0 )) -  1 ))
    End If
    TextSelectedFile.Text = TargetPath
    ChDrive Left(App.Path,  1 )
    ChDir App.Path
End Sub

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

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