Funktion med Split og Left

Hej,

I en streng (Serie) der indeholdende nogle serienumre på 10 ciffer (adskildt med blankt mellemrum), tæller nedenstående funktion antal forekomster af et specifikt serienummer.

Dim Serie
Serie="0204510008 0204510004 0204510011 1204510012 1214510002 0204510004"

Seriearr=Split(Serie," ")

Ordrefound=0
For I=LBound(Seriearr) to UBound(Seriearr)
  If LCase(Seriearr(I)) = "0204510004" Then Ordrefound = Ordrefound + 1
Next
Response.Write(Ordrefound)

Eksemplet giver "2" - så langt så godt.


Problemet er, at serienumre skal tælles op efter om de første 6 ciffer matcher et angivet 6 ciffer ordrenummer.

Jeg har prøvet nedenstående uden held:

Dim Serie
Serie="0204510008 0204510004 0204510011 1204510012 1214510002 0204510004"

Seriearr=Left(Split(Serie," "),6)

Ordrefound=0
For I=LBound(Seriearr) to UBound(Seriearr)
  If LCase(Seriearr(I)) = "020451" Then Ordrefound = Ordrefound + 1
Next
Response.Write(Ordrefound)



Håber nogle kan hjælpe..