Ecco un codicino da me fatto (ho preso spunto da quello suggerito da Sypher)

codice:
Private Function arrotonda(num)
    num = Replace(num, ".", ",") 
    num = CInt(num)
    If (Len(CStr(num))) >= 4 Then
        fisso = Left$(num, 2)
        centinaia = Right$(num, 2)
        If centinaia > 50 Then
                          fisso = fisso + 1

        End If
        arrotonda = fisso & "00"
                                Else
    If (Len(CStr(num))) = 3 Then
        fisso = Left$(num, 1)
        centinaia = Right$(num, 2)
        If centinaia > 50 Then
                          fisso = fisso + 1

        End If
        arrotonda = fisso & "00"
    End If
    End If
End Function
Arrotonda numeri di 4 o 3 cifre e con la virgola (o il punto).
Funziona bene :sexpulp:

Grazie Sypher per l'idea