Function entferne_sonstige_zeichen(description)
    'Entfernt alle Zeichen außer Kommata, Buchstaben, Ziffern, Querstriche (/) und Bindestriche (-)
    entferne_sonstige_zeichen = description

	Dim oRegExp As RegExp
	Set oRegExp = New RegExp
	With oRegExp
    .IgnoreCase = False
    .Global = True
    .MultiLine = True
    .Pattern = "[^A-Za-z\d,/-]"
End With

Dim ReplacePattern As String
ReplacePattern = ""

description = oRegExp(ReplacePattern)

End Function