replace tutti i caratteri tranne punto e virgola

[gim]

Salve a tutti.

Utilizzo il seguent escript per fare il repalce di tutti icaratteri. MA questi mi rimuove anche le virgole ed i punti di una circa, mischiandomi i decimali. Come posso escludere dal replace i punti e virgole dell'importo. Esempio, io ho "bla bla bla euro 500.00,99 bla bla" e voglio ottenre "500.00,99"

Dim RegX 
Set RegX = NEW RegExp 
Dim MyString, SearchPattern, ReplacedText 
MyString = importo
SearchPattern = "\D" 
ReplaceString = "" 
RegX.Pattern = SearchPattern 
RegX.Global = True 
importo = RegX.Replace(MyString, ReplaceString)