Автозамена символов в текстовом файле для VBA

Формулировка задачи:

Есть такая проблема нужно открыть текстовый файл найти в нем все символы "," и заменить их на "."
Как это сделать?
Помогите пожалуйста!!!

Решение задачи: «Автозамена символов в текстовом файле для VBA»

textual
                            Листинг программы 
                        

                            <font color="blue">Option</font> <font color="blue">Explicit</font>
<font color="00AA00">'' необходима ссылка на библиотеку:</font>
<font color="00AA00">'' Microsoft Scripting Runtime</font>
<font color="blue">Sub</font> TestForComma()

<font color="blue">Dim</font> a, b, s, fa, fb, fs, ForReading, fname
ForReading = <font color="darkblue"><b>1</b></font>
fname = <font color="teal">"data.txt"</font> <font color="00AA00">'' короткое имя!!</font>
<font color="blue">Set</font> fs = CreateObject(<font color="teal">"Scripting.FileSystemObject"</font>)
<font color="blue">Set</font> b = fs.OpenTextFile(<font color="teal">"C:\data.txt"</font>, ForReading, False) <font color="00AA00">''исходный файл</font>
<font color="blue">Set</font> a = fs.CreateTextFile(<font color="teal">"C:\data2.txt"</font>, True) <font color="00AA00">''файл временной копии</font>

<font color="blue">Do</font> <font color="blue">While</font> <font color="blue">Not</font> b.AtEndOfStream
s = b.Read(<font color="darkblue"><b>0</b></font>)
s = b.ReadLine
a.WriteLine (Replace(s, <font color="teal">","</font>, <font color="teal">"."</font>, <font color="darkblue"><b>1</b></font>, -<font color="darkblue"><b>1</b></font>))
<font color="blue">Loop</font>

a.<font color="blue">Close</font>
b.<font color="blue">Close</font>

<font color="blue">Set</font> fb = fs.GetFile(<font color="teal">"C:\data.txt"</font>)
fb.Delete
<font color="blue">Set</font> fb = <font color="blue">Nothing</font>

<font color="blue">Set</font> fa = fs.GetFile(<font color="teal">"C:\data2.txt"</font>)
fa.<font color="blue">Name</font> = fname

<font color="blue">Set</font> a = <font color="blue">Nothing</font>
<font color="blue">Set</font> b = <font color="blue">Nothing</font>
<font color="blue">Set</font> fa = <font color="blue">Nothing</font>
<font color="blue">Set</font> fs = <font color="blue">Nothing</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        