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

  Function Runden(Zahl As Double, Stellen As Integer, Optional Stufe As Integer _
    = 0) As Double
    If Stellen > 0 Then
      If Stufe > 0 Then
        Zahl = Math.Round((Zahl / Stufe), Stellen) * Stufe
      Else
        Zahl = Math.Round(Zahl, Stellen)
      End If
    End If
    Return Zahl
  End Function

Danke für die Hilfe

Gruß Christian