separar cadena en texto y numeros

[lexus]

me auto respondo

Código:

 
function separarCadena(cadena, queRetornar)
 dim  largo,i, caracter,  strNumero, strLetra
 largo = len(cadena)
 for i = 1 to largo
  caracter = right(left(cadena,i),1)
  if isnumeric(caracter) then
   strNumero = strNumero&caracter
  else
   strLetra = strLetra&caracter
  end if
 next
 if queRetornar = 1 then
  separarCadena =  strLetra
 else
  separarCadena = strNumero
 end if
end function