Private Sub PunktGegenKomma(ByVal sDateiName As String)
Dim iFileNo         As Integer
Dim sDateiInhalt    As String
Dim sDateiAenderung As String
 
  ' Datei öffnen, Inhalt lesen
  iFileNo = FreeFile()
  Open sDateiName For Input As #iFileNo
    sDateiInhalt = Input(FileLen(sDateiName), #iFileNo)
  Close #iFileNo
 
  ' Punkte durch Komma ersetzen
  sDateiAenderung = Replace(sDateiInhalt, ".", ",")
 
  ' Datei öffnen, geänderter String schreiben
  iFileNo = FreeFile()
  Open sDateiName For Output As #iFileNo
    Print #iFileNo, sDateiAenderung
  Close #iFileNo
 
End Sub