function NumbersOnlyNoDecimals(pInString)
lNumbersOnly = ""
for x = 1 to len(pInString)
y = (len(pInString)-x+1)
if isNumeric(mid(pInString, y,1)) then
lNumbersOnly = lNumbersOnly + mid(pInString,y,1)
else
if mid(pInString,y,1) = "." then
lNumbersOnly = ""
end if
end if
next
for x = 1 to len(lNumbersOnly)
y = len(lNumbersOnly) - x + 1
lNumbersOnlyForward = lNumbersOnlyForward + mid(lNumbersOnly,y,1)
next
if lNumbersOnlyForward = "" then lNumbersOnlyForward = "0"
NumbersOnlyNoDecimals = lNumbersOnlyForward
end function
