После десятичной точки Добавьте ноль, как это
Dim tot as String
Dim totAmt как Double
totAmt = 10.10
tot = String.Format ("{0: 00.000} ", totAmt)
Выход: 10,100
После десятичной точки Удалите нули, как это
totAmt = 10,750
tot = Math.Round (totAmt, 2)
Вывод: 10,75
Sloved