Private Sub Command1_Click()
    With MSFlexGrid1
        .TextMatrix( 1 ,  1 ) = Round( 2 . 345678 ,  2 )
    End With
End Sub

    Public Function GetTraditionalRounding(ByVal pdblValue As Double, _
                                           ByVal pintPrecision As Integer, _
                                           ByVal pblnYesNo As Boolean) As Double

        '
        '   DESCRIPTION: Rounds either traditionally or with Banker (even) method
        '

        Dim dblReturn As Double
        Dim strTail As String

        strTail = StrDup(pintPrecision, "#")

        If pblnYesNo Then
            If IsNumeric(Format$(pdblValue, "#." & strTail)) Then
                dblReturn = CDbl(Format$(pdblValue, "#." & strTail))
            Else
                dblReturn =  0 . 0 
            End If
        Else
            dblReturn = Math.Round(pdblValue, pintPrecision)
        End If

        Return dblReturn

    End Function