Как удалить все запятые из txt файла (VBS)

Dim oFSO
Dim oTSIn, oTSOut
Dim s

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oTSIn = oFSO.OpenTextFile("имя_входного_файла", 1, false)
Set oTSOut = oFSO.CreateTextFile("имя_получ. _файла")

Do Until oTSIn.AtEndOfStream
s = oTSIn.ReadLine()
s = replace(s, ",", "")
oTSOut.WriteLine(s)
Loop

-----Исх. файл ---
test, test
,
test test 123, 123
23,3

--- Получ. файл ---
test test

test test 123 123
233

P.S: Только не указывайте исходный файл = получ. файлу =)
Проверку не сделал - если надо - пишите на почту.