function update_sku(cString)
   oRegExp = new OleAutoClient("VBScript.RegExp")
   oRegExp.global  := true
   oRegExp.ignoreCase := true 
   oRegExp.Pattern := "(\D+)(\d{4})(\D+)" 
   a = oRegExp.execute( cString )
   if oRegExp.test(cString)
      cNew = a.item(0).submatches.item(0)
      cNew+='0'
      cNew+= a.item(0).submatches.item(1)
      cNew+= a.item(0).submatches.item(2)
   else 
      cNew = cString
   endif      
   return cNew