Split function in string

[nikhilcogni]

Hi I have a text file contaning email ids. I need to kow how many email ids are there. Each is separated by ;

I wrote this code but didnt work

Code:

Dim FSO
Dim ObjTxtF1
Dim ObjTxtF2

Set FSO=CreateObject("Scripting.FileSystemObject")
Set ObjTxtF1=FSO.OpenTextFile("C:\t1.txt",1)

i=0
    text=ObjTxtF1.ReadLine
    Do Until ObjTxtF1.AtEndOfStream
     Y=split(text,";")
        i=i+1
       msgbox Y(i)
     Loop
     msgbox i

ObjTxtF1.Close
Set FSO=nothing