A Dim objCulture As NumberFormatInfo = _
New CultureInfo("zh-HK").NumberFormat
objCulture.NumberNegativePattern = 1
Return NumberToPrint.ToString("C", objCulture)
B Dim objCulture As NumberFormatInfo = _
New CultureInfo("zh-HK").NumberFormat
Return NumberToPrint.ToString("-{0}", objCulture)
C Dim objCulture As NumberFormatInfo = _
New CultureInfo("zh-HK").NumberFormat
Return NumberToPrint.ToString("()", objCulture)
D Dim objCulture As NumberFormatInfo = _
New CultureInfo("zh-HK").NumberFormat
objCulture.CurrencyNegativePattern = 1
Return NumberToPrint.ToString("C", objCulture)