pString As String) As Long

Private m_lApiReturn As Long
Private m_lExtendedError As Long
Public Enum EOpenFile
    OFN_READONLY = &amp;H1
    OFN_OVERWRITEPROMPT = &amp;H2
    OFN_HIDEREADONLY = &amp;H4
    OFN_NOCHANGEDIR = &amp;H8
    OFN_SHOWHELP = &amp;H10
    OFN_ENABLEHOOK = &amp;H20
    OFN_ENABLETEMPLATE = &amp;H40
    OFN_ENABLETEMPLATEHANDLE = &amp;H80
    OFN_NOVALIDATE = &amp;H100
    OFN_ALLOWMULTISELECT = &amp;H200
    OFN_EXTENSIONDIFFERENT = &amp;H400
    OFN_PATHMUSTEXIST = &amp;H800
    O