Public Function Runden(ByVal Zahl As Double, ByVal Stellen As Integer, Optional _
  ByVal Fuenferln As Boolean = False) As Double
        If Stellen > 0 Then
            Zahl = Math.Round(Zahl, Stellen)                 ' auf gewünschte 
            ' Nachkommastellen runden
        End If
        If Fuenferln = True Then
            Zahl = Math.Round(Zahl / 5, 0) * 5
        End If
        Return Zahl
    End Function

Danke für die Hilfe

Gruß Christian