Una funcion para separar valores de una variable

Función Split

Descripción
Devuelve una matriz unidimensional, basada en cero, que contiene un número
especificado de subcadenas.
Sintaxis
Split(expresión[, delimitador[, cuenta[, comparación]]])
La sintaxis de la función Split tiene las siguientes partes:

Parte Descripción
expresión Requerido. Expresión de cadena que contiene las subcadenas
y delimitadores. Si expresión es una cadena de longitud cero, Split devuelve
una matriz vacía, es decir, una matriz sin elementos ni datos.
delimitador Opcional. Carácter de cadena que se usa para identificar
los límites de las subcadenas. Si se omite, se asume que el carácter
delimitador es el carácter de espacio (" "). Si delimitador es una cadena de
longitud cero, se devuelve una matriz de un solo elemento que contiene toda
la expresión.
cuenta Opcional. número de subcadenas que se va a devolver; -1
indica que se devuelven todas las subcadenas.
comparación Opcional. Valor numérico que indica el tipo de
comparación que se va a usar al evaluar las subcadenas. Consulte la sección
Valores para saber cuáles son los valores permitidos.


Valores
El argumento comparación puede tener los siguientes valores:
Constante Valor Descripción
vbBinaryCompare 0 Realiza una comparación binaria.
vbTextCompare 1 Realiza una comparación de texto.


Comentarios
El siguiente ejemplo usa la función Split para devolver una matriz a
partir de una cadena. La función realiza una comparación de texto del
delimitador y devuelve todas las subcadenas.
Dim MiCadena, MiMatriz
MiCadena = Split("VBScriptXisXfun!", "x", -1, 1)
' MiCadena(0) contiene "VBScript".
' MiCadena(1) contiene "es".
' MiCadena(2) contiene "divertido".