Looking to code a function to efficiently remove multiple commas in a string

[snb]

another method

sub M_snb()
   c00=cells(2,4)
   For j = 20 To 1 Step -1          
     c00= Replace(c00, String(j, ","), ",")
   Next
   cells(2,4)=c00
  End Sub