Tælle forekomster af bestemt tekststreng i en tekstfil

Jeg logger de besøgende på mit website i en tekstfil.
For at lave noget statistik på det er jeg ved at lave en funktion der tager hver linje og finder ud af hvilken http_useragent de benytter. Her har jeg en funktion der finder alle de forskellige useragents:

    Do While Not TextStream.AtEndOfStream
        Line = TextStream.readline
        LineA = split(Line,",")

        ua = LineA(3) & "*!*" 'det er her navnet på useragenten ligger
        if instr(userAgent2,ua)=0 then
            ' TILFØJ DEN
            userAgent2 = userAgent2 & ua
        end if
    Loop

Dermed bliver tekststrengen userAgent2 en liste over forskellige useragents :) - men hvordan kan jeg på en elegant måde få talt hvor mange forekomster der er at hver enkelt useragent?