Arrotondamento numeri decimali alla seconda cifra

        Dim a As Decimal = CDec("3,3057854890")
        Dim b As Decimal = CDec("3,3057")
        Dim c As Decimal = CDec("3,3051")
        Dim d As Decimal = CDec("3,3050")
        Dim e As Decimal = CDec("3,3041")
        Console.WriteLine(a & " = " & Math.Round(a, 2, MidpointRounding.ToEven))
        Console.WriteLine(b & " = " & Math.Round(b, 2, MidpointRounding.ToEven))
        Console.WriteLine(c & " = " & Math.Round(c, 2, MidpointRounding.ToEven))
        Console.WriteLine(d & " = " & Math.Round(d, 2, MidpointRounding.ToEven))
        Console.WriteLine(e & " = " & Math.Round(e, 2, MidpointRounding.ToEven))

Public Sub arrotondamento(ByRef prezzo As Decimal)
        Dim prstr As String = CStr(prezzo)
        'Variabile utilizzata per il conteggio dei numeri prima della virgola
        Dim previr As Integer = 0

        Dim len As Integer = prstr.Length
        'ciclo prstr per assegnare il valore a previr
        For i As Integer = 0 To len
            If prstr.Chars(i) <> "," Then
                previr += 1
            Else
                Exit For
            End If
        Next

        'Variabile che stabilisce a quale cifra arrotondare
        Dim taglio As Integer = previr + 4
        Dim prezzotagliato As String = Nothing

        'Se la lunghezza del prezzo è inferiore del valore della variabile Taglio
        'Aggiungo tanti 0 alla fine, quante sono le cifre di differenza
        If len < taglio Then
            prstr.PadRight(taglio, CChar("0"))
        End If
        taglio -= 1

        'Arrotondo la 3° cifra decimale per difetto qualora fosse uguale a 5
        Dim ultstr As String = prstr.Chars(taglio)
        Dim ultimo As Integer = CInt(ultstr)
        If ultimo = 5 Then
            ultstr = "4"
        End If

        'Ricompongo il prezzo
        For i As Integer = 0 To (taglio - 1)
            prezzotagliato &= prstr.Chars(i)
        Next
        prezzotagliato &= ultstr


        prezzo = CDec(prezzotagliato)
        prezzo = Math.Round(prezzo, 2)
    End Sub