'Klaus Seeling, Voith, 2000-09-04, v1.0, Klaus.Seeling@Voith.com, +49 7321 37 3042
Option Explicit
On Error Resume Next
Dim ScriptingFileSystemObject , InputFile , OutputFile

Set ScriptingFileSystemObject = CreateObject("Scripting.FileSystemObject")
Set InputFile = ScriptingFileSystemObject.OpenTextFile("c:\source.txt", 1, False)
If Err.Number <> 0 Then
	MsgBox "Input file doesn't exist!"
Else
	Set OutputFile = ScriptingFileSystemObject.CreateTextFile("c:\result.txt", True)
	Items = Split(InputFile.ReadLine, ";")
	For i = LBound(Items) To UBound(Items)
		OutputFile.WriteLine Items(i)
	Next
	InputFile.Close
	OutputFile.Close
End If