Mengubah format currency di visual basic 6

Sekedar sharing lagi. Berhubung dengan kerjaan saya sebagai programmer di Indonesia, terkadang customer menginginkan format currency yang sesuai dengan format yang berlaku di Indonesia, yaitu xx.xxx.xxx,xx
Jika menggunakan format luar negeri maka dengan mudah kita dapat menggunakan syntax berikut
Text1.Text = Format(1000000000, “currency”) atau
Text1.Text = Format(1000000000, “$##,##0.00″)
 menghasilkan output yg sama dengan format currency
Namun setelah mencari-cari format untuk Indonesia tidak ada, sehingga harus dimodif sendiri. Berikut cara yang saya lakukan
Text1.Text = Format(1000000000, “currency”)
Text2.Text = Replace(Text1.Text, “$”, “Rp. “) ‘ Rp. 1,000,000,000.00
Text2.Text = Replace(Text2.Text, “.00″, “;00″) ‘ Rp. 1,000,000,000;00
Text2.Text = Replace(Text2.Text, “,”, “.”) ‘ Rp.1.000.000.000;00
Text2.Text = Replace(Text2.Text, “;00″, “,00″) ‘ Rp. 1,000,000,000;00
Jika ada yang bisa mengubah ke format Indonesia dengan menggunakan syntax format langsung, tolong dishare disini ya.