mmm...na cosa del genere:
codice:
Private Function arrotonda(num)
    numerointero = FormatNumber(num, 0)
    If (Len(CStr(numerointero))) > 2 Then
        centinaia = Left(numerointero, Len(numerointero) - 2)
        arrotonda = centinaia & "00"
    End If
End Function
p.s. ricorda che se usi CInt se il numero è più grande di 35000 più o meno , non ricordo il numero esatto va in errore!