'MacroName: ExportPlus
'MacroDescription: puts errorlist in a message box after failed export
'written by John Lavalie, July 10, 2006

'--------------------   
function replace(strString as string, strOld as string, strNew as string) as string
   dim pos as integer
   pos = instr(strString, strOld)
   do while pos > 0
      strString = left(strString, pos - 1) & strNew & mid(strString, pos + len(strOld))
      pos = instr(strString, strOld)
   loop
   replace = strString   
end function
'-------------------

Sub Main

   Dim CS As Object
   Set CS = CreateObject("Connex.Client")
     
   dim arrow, x as string
   arrow = "---> "
   
   if CS.Validate(ErrorList) > 0 then
      x = arrow & ErrorList
      x = replace(x, "|", chr(13) & chr(10) & arrow)      
      MsgBox x,, "Record does not validate."
   else
      CS.Export
   end if  

End Sub