Function GetOpenFileNameSimple(ByRef strSrc As String, ByVal lHWND As Long) As String
Dim ofn As OPENFILENAME_WIN
Dim strPath As String
Dim strFilter As String
Dim strRet As String
Dim lError As Long

strRet = ""

strFilter = strSrc
StringReplace strFilter, "|", vbNullChar, vbBinaryCompare

' reserve buffer for output string
strPath = String(OPENFILENAME_WIN_MAX_PATH, 0)

OPENFILENAME_WIN_Init ofn
ofn.hwndOwner = lHWND
ofn.lpstrFilter = strFilter
ofn.lpstrFile = strPath
ofn.nMaxFile = Len(strPath) - 1
ofn.Flags = OFN_HIDEREADONLY Or OFN_PATHMUSTEXIST Or OFN_FILEMUSTEXIST

lError = DllGetOpenFileName(ofn)
If lError <> 0 Then
' truncate all null characters
strRet = Mid(ofn.lpstrFile, 1, InStr(1, ofn.lpstrFile, vbNullChar, vbBinaryCompare) - 1)
End If

GetOpenFileNameSimple = strRet
End Function