dim strString as string
strString="a,b,c,d,e,f"
strString=replace(strString,",","")

dim strString as string
dim strFilter as string
'Dein String
strString="a,b,c,d,e,f"
'Alle Zeichen, die entfernt werden sollen
strFilter=",;: "
 
'Zeichenweise Filterstring erzeugen
for i=1 to len(strFilter)
    'und per replace entfernen
    strString=replace(strString,",",mid(strFilter,i,1))
next

public function StringFilter(byval s as string, byval f as filter) as string
 
    dim i as integer
    for i=1 to len(f)
        s=replace(s,",",mid(f,i,1))
    next
 
    StringFilter=s
 
end function

dim strString as String
strString=StringFilter("a,b,c,d,e,f",",")

Gru?

BernyH