Dim _Total as double

TbTotal.text = _Total.ToString("#,##0.00;-#,##0.00;0")