Sub DemoChangeDelimiters()
 Dim str As String
 str = QuickRead(ThisWorkbook.Path & "\book1.csv")
 str = Replace(str, ",", ";")
 QuickWrite str, ThisWorkbook.Path & _
  "\book1.csv", True
End Sub

' Liest eine Datei in einen String.
Function QuickRead(fname As String) As String
 Dim i As Integer, res As String, l As Long
 ' Ein Datei-Handle beschaffen.
 i = FreeFile
 ' Die Länge der Datei ermitteln.
 l = FileLen(fname)
 ' Einen String erzeugen, der die Daten aufnimmt.
 res = Space(l)
 ' Die Datei öffnen.
 Open fname For Binary Access Read As #i
 ' Die ganze Datei in res einlesen.
 Get #i, , res
 ' Die Datei schließen.
 Close i
 ' Den String zurückliefern.
 QuickRead = res
End Function

' Die Daten in eine Datei schreiben.
Function QuickWrite(data As String, fname  _
 As String, Optional overwrite As Boolean = False) _
 As Boolean
 Dim i As Integer, l As Long
 ' Wenn die Datei vorhanden und overwrite True ist, dann
 If Dir(fname) <> “” Then
 If overwrite Then
 ' die Datei löschen.
 Kill fname
 Else
 ' Andernfalls False zurückliefern und beenden.
 QuickWrite = False
 Exit Function
 End If
 End If
 ' Ein freies Datei-Handle beschaffen.
 i = FreeFile
 ' Die Länge der Datei ermitteln.
 l = Len(data)
 ' Die Datei öffnen.
 Open fname For Binary Access Write As #i Len = l
 ' Die ganze Datei in res einlesen.
 Put #i, , data
 ' Die Datei schließen.
 Close i
 ' True zurückliefern.
 QuickWrite = True
End Function