'*** Wichtig unter Tools --> Refenrences: Microsoft Scripting Runtime 
 ' anklicken (c:\windows\system32\scrrun.dll
 
 
   Sub Main()
 
        Dim fso As New Scripting.FileSystemObject
 
        Dim txt1 As Scripting.TextStream
        Dim txt2 As Scripting.TextStream
 
        Set txt1 = fso.OpenTextFile("C:\text1.txt", ForReading, False, _
          TristateMixed)
        Set txt2 = fso.CreateTextFile("C:\text2.txt", True, False)
 
        Dim zeile As String
 
        Do Until txt1.AtEndOfStream
            zeile = txt1.ReadLine
            zeile = Replace(zeile, ".", ",")
            txt2.WriteLine (zeile)
        Loop
 
        txt1.Close
        txt2.Close
 
        Kill "c:\text1.txt"
        FileCopy "c:\text2.txt", "c:\text1.txt"
        Kill "c:\text2.txt"
 
    End Sub

Reality vs Cyberspace - Where do you want to go today?