Esta función devuelve en una cadena el contenido de un array, cada elemento del array se incluye en esa cadena y se separa cada elemento con el separador indicado. El separador no se añade al final de la cadena, sólo entre cada elemento.
La forma de usar esta función es:
Join(list[, delimiter])
dónde:
list: es un array con los elementos que queremos "juntar" en una cadena.
delimiter: (opcional), es el separador que queremos usar para separar cada uno de esos elementos, por defecto es un espacio. Si no queremos usar ningún delimitador, es decir para que todos los elementos estén juntos, hay que indicar una cadena vacía; si, por el contrario queremos usar cualquier otro carácter, lo indicaremos en este parámetro de la función.
Private Sub cmdJoin_Click()
'Ejemplo de uso de Join, esta función devolverá en una cadena
'cada elemento de un array separados por el delimitador que
'se le indique.
Dim tArray() As String
Dim i As Long
'Dimensionamos el array con cuatro elementos (de 0 a 3)
ReDim tArray(10)
'Asignamos valores al array
For i = 0 To 10
tArray(i) = "Elemento_" & i
Next
'Las palabras se separan por un espacio, (valor por defecto)
Text1 = Join(tArray)
End Sub
Fuente: www.elguille.i nfo
Autor