Oh 174 is a label. Try replacing
that comes before loop withCode:lngIdxItm = InStrRev(strItm(0), " ") strItm(0) = Mid$(strItm(0), lngIdxItm, InStr(lngIdxItm, strItm(0), ";") - lngIdxItm)
Code:strItm(0) = " 174=" & Val(Mid$(strItm(0), InStr(1, strItm(0), "174=")+4))




Reply With Quote