Rexexp

Försöker komma på hur man ska skriva för att hitta och ersätta varje ställe i en textsträng där det är ett kommatecken direkt följt av en bokstav a-ö, A-Ö eller en siffra 0-9. Jag vill klämma in ett mellanslag där.

Mönstret här verkar stämma men hur skriver jag för att varje träff ska ersättas av ett mellanslag efter kommatecknet men före bokstaven eller siffran?

(\,)+[A-ZÅÄÖa-zåäö0-9]

Exempel ord1,ord2,ord3 ska bli ord1, ord2, ord3

Någon anledning till att inte använda Replace()?

NyStrang = Replace(GammalStrang, ",", ", ")

Ja, jag vill inte ersätta alla kommatecken utan bara de som har en bokstav eller siffra direkt efter sig. Har man redan gjort ett mellanslag efter kommatecknet ska det inte bli två mellanslag.

Dim myRegExp, ResultString
Set myRegExp = New RegExp
myRegExp.Global = True
myRegExp.IgnoreCase = True
myRegExp.Pattern = "(,)([a-z\dåäö])"
ResultString = myRegExp.Replace(SubjectString, "$1 $2")

Super :-) Stort tack!