String$

Hello, I am trying to take a large number in VB6 (2047857876) and make it look like this (2,047,857,876). The beginning number will never have spaces in it, so using the replace function wont work. Somebody please help.

Many thanks