Rounding currency to nearest 5cents [RESOLVED]

[Supremus]

G'day,

I have to round a currency total to the nearest 5 cents. Is there an inbuilt function to do it better?

Dim temp As Currency
   temp = TotalCost * 10 - Int(TotalCost * 10)
   If temp < 0.5 Then
     TotalCost = TotalCost - temp/10
   ElseIf temp > 0.5 Then
      TotalCost = Round(TotalCost + 0.05, 1)
   End If

Peter