dim teste as string;
dim part1 as string;
dim part2 as string;
teste = "pegeut";
substring(inicio,tamanho);
part1= teste.substring(0,3); // part1 = pege
part2= teste.substring(3,6); // part2 = geut
substring(tamanho);
part1= teste.substring(3); // part1 = peg