علیک
اینو تست کن ببین درست میشه، ۳ تا گذاشتم

Format(Text6.Text, "###,###,000.0")

Format(Text6.Text, "###,###,000.000")

Format(Text6.Text, "###,###,###.000")