Function Zeichenersetzer(textzeile As String) As String  
Zeichenkette = Len(textzeile)
Schalter = 0
 
For i = 1 To Zeichenkette 
Temp1 = Mid(textzeile, i, 1)
 If ((Temp1 = Chr(34)) And (Schalter = 0)) Then Schalter = 1 Else If ((Temp1 = _
   Chr(34)) And (Schalter = 1)) Then Schalter = 0
 If Temp1 = "," And Schalter = 1 Then Temp1 = "_"
Text2 = Text2 + Temp1
Next i
textzeile = Text2
Zeichenersetzer = Text2 
End Function