COMO SEPARAR STRNGS, A PARTIR DE UM CARACTER

USUARIO.EXCLUIDOS 03/06/2004 20:37:37
#28052 Resposta escolhida

Utilize a função Split em VB6.
Exemplo:
Dim Frase As String
Dim Palavra As Variant

Frase = "texto1|texto2|texto3|texto4"
Palavra = Split(Frase, "|")

Após o split você terá:
Palavra(0) => texto1
Palavra(1) => texto2
Palavra(2) => texto3
Palavra(3) => texto4

Primeira palavra: LBound(Palavra)
Ultima palavra: UBound(Palavra)

USUARIO.EXCLUIDOS 03/06/2004 20:38:56
#28054

Um pequena correção:
Indice da primeira palavra: LBound(Palavra)
Indice da ultima palavra: UBound(Palavra)

USUARIO.EXCLUIDOS 03/06/2004 20:52:05
#28057

Como você deve ter notado no exemplo a função split retorna um array (matriz).
As funções LBound e UBound retornarão os indices inicial e final do array caso você necessite percorrer esse array.

Exemplo:

For i = LBound(Palara) To UBound(Palara)
... Seu código
Next i