Usar la función de división de vb

Ejecútalo y mira

c

=

Prueba split("a,b,c ,d ,e",

",") cambiar el 3 en 2 o 1,

3) cambiar a 2 o 1

Entendido

privado

sub

form_click()

dim

c()

como

cadena

c

=

split("a,b,c,d,e",

",",

3)

para

i

=

a

ubound(c)

imprimir

c(i)

siguiente

i

fin

sub