FUNCTION NonAlphaTrim (cString)
  LOCAL lcLTS		&& Left Trimmed String
  LOCAL lnRCC		&& Number of characters to drop from end of string
  LOCAL oCol
  LOCAL lcRetString
  oRegExp = CREATEOBJECT("VBScript.RegExp")
  oRegExp.PATTERN = "[a-zA-Z].*"
  oCol = oRegExp.Execute(cString)
  IF oCol.COUNT = 0  && No valid string embedded
    lcRetString = ""
  ELSE
    lcLTS = oCol.ITEM(0).VALUE
    oRegExp.PATTERN = "[^a-zA-Z]*$"
    lnRCC = LEN(oRegExp.Execute(lcLTS).ITEM(0).VALUE)
    lcRetString = LEFT(lcLTS,(LEN(lcLTS)- lnRCC))
  ENDIF
  RETURN lcRetString