Pembulatan Angka Desimal

Code:
Private Type NUMBERFMT
NumDigits As Long ' number of decimal digits
LeadingZero As Long ' if leading zero in decimal fields
Grouping As Long ' group size left of decimal
lpDecimalSep As String ' ptr to decimal separator string
lpThousandSep As String ' ptr to thousand separator string
NegativeOrder As Long ' negative number ordering
End Type
Private Declare Function GetNumberFormat Lib "kernel32" Alias "GetNumberFormatA" (ByVal Locale As Long, ByVal dwFlags As Long, ByVal lpValue As String, lpFormat As NUMBERFMT, ByVal lpNumberStr As String, ByVal cchNumber As Long) As Long
Private Sub Form_Load()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Buffer As String, NF As NUMBERFMT
Buffer = String(255, 0)
With NF
.NumDigits = 3
.Grouping = 1
.lpDecimalSep = "."
.lpThousandSep = ""
.NegativeOrder = 0
End With
GetNumberFormat ByVal 0&, 0, "300243.24", NF, Buffer, Len(Buffer)
MsgBox Buffer
End Sub