Dim d As Double = Math.Round(53.46, 1)

    Dim d As Double = Math.Truncate(53.46 * 10) / 10

        Debug.WriteLine(Me.Abrunden(53.46, 1))
 
        Private Function Abrunden(ByVal value As Double, ByVal digits As _
          Integer) As Double
            Dim multi As Double = 10 ^ digits
            Return Math.Truncate(value * multi) / multi
        End Function