VB: Problemas con Cadenas

[meru-kun]

Function cortarApartir(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'a partir de la aparicion del caracterCortador
'de la posicion especificada en desde.
dim enc
enc = instr(desde,cadena,caracterCortador)
cortarApartir = mid(cadena,enc + 1)
end Function

Function cortarHasta(desde,cadena,caracterCortador)
'esta funcion devuelve la porcion de cadena encontrada
'hasta el caracter especificado en caracterCortador.
'si el tamaño de la cadena es menor que el
'especificado en desde, entonces, corregir el error.
dim enc
If desde > len(cadena) Then
cortarHasta = cadena
ElseIf desde < len(cadena) Then
enc = instr(desde,cadena,caracterCortador)
cortarHasta = left(cadena,enc - 1)
Else
cortarHasta = cadena
end if
end function


Con esas funciones cortas la caden hasta el caracter que quieres, y con la otra cortas la cadena desde el caracter que quieres.

Creo que te puede ayudar... (pon desde = 1)