please correct the code (indian number format code)

hi....

The code is about place the comma's (,) i.e separator between numbers
in this format (12,21,21,123) it works good..

but when there's a decimal point such as 12345.58 it will show as 12,346..
it will round up the values.. ( which i dont want that .. i want as it value to be printed )

and one more problem if there five digit with two decimal i.e(12345.00) it will show correct
i.e (12,345.00) but if i there four digit with two decimal i.e(1234.00 ) it will show this #error

Code:

---


Public Function FormatIndian(ByVal Amount As decimal) As String 
Dim strAmount As String
Dim strGrpsArr() As String
Dim lngPos As Long
Dim lngIndex As Long

  strAmount = Format$(Amount, "#")
  If Len(strAmount) < 4 Then
      FormatIndian = strAmount
  Else
      lngIndex = (Len(strAmount) - 2) \ 2
      ReDim strGrpsArr(lngIndex)
   
      strGrpsArr(lngIndex) = Mid$(strAmount, Len(strAmount) - 2)
   
      lngPos = Len(strAmount) - 4:  lngIndex = lngIndex - 1
      Do
        strGrpsArr(lngIndex) = Mid$(strAmount, lngPos, 2)
        lngPos = lngPos - 2:      lngIndex = lngIndex - 1
        If lngPos = 0 Then strGrpsArr(0) = Left$(strAmount, 1)
      Loop Until lngPos <= 0
   
      FormatIndian = Join(strGrpsArr, ",")
      Erase strGrpsArr
  End If
        Return  FormatIndian
End Function

---

please modify the code .. the code is in ssrs report properties->code tab..
help me...