Format integer

i do this
Gross.Text = Format(CDbl(Gross.Text) / 1000, "#,###")
if gross = 950 then gross return 0
if gross = 2002 then gross return 2
if gross = 200000.33 then gross return 200
if gross = 200000000 then gross return 200,000
if gross = 20000000000 then gross return 20,000,000

Do i have alternative way to do this?

...