EXPLODE EM VB6

HGZICA 08/08/2012 12:56:44
#407492
Boa Tarde!

quero pegar a string que tiver depois da última vírgula.
exemplo: [Ô]teste, mais um teste, outro teste, okay![Ô]

No PHP eu usaria:

$texto = [Ô]teste, mais um teste, outro teste, okay![Ô];
$ultimastring = end(explode([ô],[ô], $texto));

Como se faz no VB6?

Obrigado!
MARCELO.TREZE 08/08/2012 13:01:12
#407495
Resposta escolhida
no vb6

Dim uTexto() As String
Dim Texto As String
Texto = [Ô]teste, mais um teste, outro teste, okay![Ô]
uTexto = Split(Texto, [Ô],[Ô])
MsgBox uTexto(UBound(uTexto))


HGZICA 08/08/2012 20:26:27
#407533
Show de bola MARCELO, obrigado!
Tópico encerrado , respostas não são mais permitidas