rsrs, foi mal, apertei o TAB e depois o espaço e a msg foi toda torta!! rsrs Mas vai aí o codigo certinho.. private sub Split_Alternativo(Texto as string,sep as string) dim a as integer dim b as integer dim i as integer dim s as variant a=0:b=0 for i = 1 to len(texto) if mid(texto,i,1) = sep then on error resume next S( = mid(texto,a,i-1) b=b+1 a=i+1 end if end sub -------- rsrs ... no Vb5 não tinha Split daí eu tive q improvisar algo desse tipo!! Claro q no metodo com split é muito mais pratico né!! rsrs