Function IndiaRupees(ByVal rs As String) Dim str As String = "" str = Right(rs, 3) rs = Left(rs, IIf(rs.Length > 3, rs.Length - 3, 0)) While rs <> "" str = Right(rs, 2) & "," & str rs = Left(rs, IIf(rs.Length > 2, rs.Length - 2, 0)) End While IndiaRupees = "Rs. " & str End Function Prakash Samariya