Editing a txt file

I have a txt file that is a list of email addresses, in a singal coulum.

ex.

[email protected]
[email protected]

I want to open the file and pull all of these together and seperate them with a ";".
To look like this:
[email protected];[email protected]

Thanks,

BMLekki
[email protected]

dim sLine as string
dim sFinalString as string
Open "c:\temp\temp.txt" For Input As #1 'to read from
Do While Not EOF(1)
Line Input #1, sLine
sFinalString = sFinalString & ";" & sLine
Loop
Close #1

Now sFinalString contains all your strings separated by ;

Iouri Boutchkine
[email protected]