k, here is the code I came up with...
took a lot of golfing... perhaps would been quicker to just write my own

Code:

Function DigitGrouping($input, $GS, $DS)
dim $
	$input = split($input,$DS)
	for $=len($input[0]) to 0 step -1
		if not $ mod 3
			$digitGrouping = $digitGrouping + $GS
		endif
		$digitGrouping = $digitGrouping + substr($input[0],$,1)
	next
	if 0<ubound($input)
		$digitGrouping = $digitGrouping+$DS+" "+$input[1]
	endif
	$digitGrouping = trim($digitGrouping)
EndFunction