Dim value As Double = CDec(TextBox1.Text)
        Dim decimals As Integer
 
        Dim sign As Double = Math.Sign(value)
 
        value = Math.Abs(value)
 
        Dim decFact As Double = Math.Pow(10, decimals)
 
        value *= decFact
 
        value += 0.5
 
        TextBox2.Text = sign * Math.Floor(value) / decFact