Private Sub CmdResult_Click()
lblErgebnis.Caption = Round(„Berechnungsformel“, 3)
End Sub

Public Function Round(ByVal vValue, nStellen As Long) As Double
Dim sBuffer As Double
Dim sFormat As String
sBuffer = CDbl(vValue)
sFormat = "0." & String(nStellen, "0")
Round = Format(sBuffer, sFormat)
End Function
 
Private Sub CmdResult_Click()
LblResult.Caption = Round(“Berechnungsformel”,2)
End Sub

----------------------------------------------------------------
vb@rchiv =/= To boldly go where no programmer has gone before =/=