EdiDocument.Segments(0)' threw an exception of type 'System.ArgumentOutOfRangeException'

[hyilmaz1966]

I am using below code;
Dim EdiDocument As New EdiTools.EdiDocument
EdiDocument.Load("D:\DATA\EDI856.txt")
Response.Write(EdiDocument.Segments(0).Element(1).Value)

and I get EdiDocument.Segments(0)' threw an exception of type 'System.ArgumentOutOfRangeException'
on the last line.

EDI file I am using;
ISA010000000000010000000000ZZABCDEFGHIJKLMNOZZ1234567890123451011271719U004000000034380P>
GSSH440519780099999999920111206104549X004060
ST8560008
BSN14829716201112061424280002
HL1S
TD1PCS2**A360.310LB
TD52XXXX**XXXX
REFBM999999-001
REFCN5787970539
DTM01120111206
N1SH1 EDI SOURCE
N331875 SOLON RD
N4SOLONOH44139
N1OBXYZ RETAIL
N3P O BOX 9999999
N4ATLANTAGA31139-0020**SN9999
N1SF1 EDI SOURCE
N331875 SOLON ROAD
N4SOLONOH44139
HL21O
PRF9999981720111205
HL32I
LIN1VP87787DUP999999310145
SN1124EA
PO4124EA
PIDFBLUE WIDGET
HL42I
LIN2VP99887DUP999999311746
SN126EA
PO416EA
PIDFRED WIDGET
CTT430
SE310008
GE149
IEA1*000000049