Dim eAmount As Long = RMS.Microsoft.VisualBasic.left (intAmount.ToString.Trim, (intAmount.ToString.Trim.Length - (nSet - 1 * 3)))