Declare Integer FormatMessageA In kernel32.dll as FormatMessage ; Integer dwFlags, ; String @lpSource, ; Integer dwMessageId, ; Integer dwLanguageId, ; String @lpBuffer, ; Integer nSize, ; Integer Arguments lcErrBuffer = REPL(CHR(0),1000) liNewErr = FormatMessage(0x1000; ,.NULL., vprdev.nOpenError, 0, @lcErrBuffer,500,0) lcErrorMess = LEFT(lcErrBuffer, AT(CHR(0),lcErrBuffer)- 1 )