Imports System.Text.RegularExpressions
 
Private Function Ersetzen (Byval DeinText As String) As String
 
Dim pattern As String="(" & Chr(34) & "[-09]+" & Chr(34) & ")"
 
Return RegEx.Replace(DeinText, pattern, "")

EALA FREYA FRESENA