STRINGS [BASICO]

MARCELO.TREZE 26/05/2012 12:58:14
#402873

coloque um numero que retorne algum resultado é apenas para teste

SYSZEN 26/05/2012 16:59:33
#402884

neste conjunto = 16,20,17,21,19

separar(4) = 19
separar(3) = 21

MARCELO.TREZE 26/05/2012 17:38:54
#402885

então o que não está funcionando é o UBound(separar)

faça um teste

msbox Ubound(separar)

SYSZEN 26/05/2012 21:28:34
#402900

resultado = 5

SYSZEN 26/05/2012 23:08:11
#402903

ja resolvi
fiz um split para uma picture e depois retirar -2 que e a posicao do ultimo

separar = Split(Text1.Text, [Ô],[Ô])
For x = 0 To UBound(separar)
Picture1.Print separar(x)
Next x
Ultimo = separar(x - 2)
MsgBox Ultimo