Replace Funktion

Hej

Jeg har en Variabel som hedder OpenUsers. Den ser sådan du :

Openusers : 0, 41, 43, 17, 35, 1, 88

Jeg har så en variabel som hedder ID, som f.eks indeholder tallet 1

Jeg har så en Replace som gør sådan her:

OpenFileFolders = Replace(OpenUsers,", " & ID & "", "")

Meningen er at den skal fjernet 1 tallet, så min OpenUsers kommer til at se sådan ud :

Openusers : 0, 41, 43, 17, 35, 88

Men den ender med at sådan her ud :

Openusers : 0, 41, 437, 35, 1, 88

Det vil altså sige der hvor der stod 17, fjerner den kommaet, mellemrummet og 1 tallet..

Dette er ikke meningen..

Hvordan får jeg det fikset ?

Mvh Chimera