Public Function CommaSeparatedAmt(ByVal Amount As String) As String
Dim strAmt As String = ""
Dim s As String = ""
Dim s1 As String = ""
Dim s2 As String = ""
Dim AmtString As String
Dim DecAmt As String
If Amount.Contains(".") Then
Dim strArr As String() = Split(Amount, ".")
AmtString = strArr(0)
DecAmt = strArr(1)
Else
AmtString = Amount
DecAmt = "00"
End If
Select Case AmtString.Length
Case Is < 4
strAmt = AmtString
Case 4
s = AmtString.ToString.Substring(0, 1)
s1 = AmtString.ToString.Substring(1, 3)
strAmt = s + "," + s1
Case 5
s = AmtString.ToString.Substring(0, 2)
s1 = AmtString.ToString.Substring(2, 3)
strAmt = s + "," + s1
Case 6
s = AmtString.ToString.Substring(0, 1)
s1 = AmtString.ToString.Substring(1, 2)
s2 = AmtString.ToString.Substring(3, 3)
strAmt = s + "," + s1 + "," + s2
Case 7
s = AmtString.ToString.Substring(0, 1)
s1 = AmtString.ToString.Substring(1, 3)
s2 = AmtString.ToString.Substring(4, 3)
strAmt = s + "," + s1 + "," + s2
Case 8
s = AmtString.ToString.Substring(0, 2)
s1 = AmtString.ToString.Substring(2, 3)
s2 = AmtString.ToString.Substring(5, 3)
strAmt = s + "," + s1 + "," + s2
Case 9
s = AmtString.ToString.Substring(0, 3)
s1 = AmtString.ToString.Substring(3, 3)
s2 = AmtString.ToString.Substring(6, 3)
strAmt = s + "," + s1 + "," + s2
Case Else
strAmt = AmtString
End Select
Return strAmt & "." & DecAmt
End Function