Framework EDI Reference. Methods and Properties
ediWarning.Code

Returns the code of the error.

Syntax:

Example

Set oWarnings = oEdiDoc.GetWarnings
For i = 1 To oWarnings.Count

Set oWarning = oWarnings.Warning(i)
List1.AddItem oWarning.Code & " " & oWarning.Description
Next