Private Sub CSV_Convert(ByVal strName as string, Optional ByVal search As _
  String = ",", Optional ByVal repl As String=";")
    Dim f As Integer
    Dim strBuffer As String
 
    f = FreeFile
    Open strName For Binary Access Read Lock Read As #f
    Get #f, , strBuffer
    Close #f
    strBuffer = Replace(strBuffer, search, repl)
 
    f = FreeFile
    Open "DATEI1" For Binary Access Write As #f
    Put #f, , strBuffer
    Close #f
End Sub