格式化貨幣分隔符如：100,000.01

Function fNumFormat(strNumber)
 Dim strSign ,i ,j ,iPoint

 fNumFormat = ""

 If InStr(strNumber, "-") <> 0 Then
  strSign = "-"
  strNumber = Replace(strNumber, "-", "")
 End If

 iPoint = InStr(strNumber, ".")
 If iPoint <> 0 Then
  fNumFormat = Mid(strNumber, iPoint)
  strNumber = Left(strNumber, iPoint - 1)
 End If

 For i = Len(strNumber) To 1 Step -1
  j = j + 1
  If j Mod 3 = 0 And j < Len(strNumber) And j > 0 Then
   fNumFormat = "," & Mid(strNumber, i, 1) & fNumFormat
  Else
   fNumFormat = Mid(strNumber, i, 1) & fNumFormat
  End If
 Next
 fNumFormat = strSign & fNumFormat

End Function