VB: Problemas con Cadenas

[KaRPiN]

Hola otra vez, aquí estoy como buen novato angustiado con mis problemillas, hoy busco un poco de vuestra ayuda con un tema de cadenas en Visual, a continuación os lo cuento:

Necesito que a partir de una cadena, que tengo almacenada en una variable que voy a llamar cad, obtener lo siguiente:

1) una nueva cadena que conste desde el primer caracter de cad hasta la primera F que encuentre.

2) conseguir que una vez obtenida la nueva cadena del primer paso, la cadena original se quede sin trozo de cadena que he aíslado.

3) que esto se produzca recursivamente.


He empezado así:


For i = 1 To Len(cad)
nuevacadena = Left(cad, (InStr(cad, f) - 1))
cad =

Next i

Sólo he sido capaz de estraer la nueva cadena pero no sé como actualizar cadena para que pase algo así:

cad="telefonocasafoca"
nuevacadena="tele"
cad="fonocasafoca"

Y todo esto en un bucle para ir cogiendo siempre los trozos hasta la f y actualizando despúes la cadena original, espero haberme explicado medianamente bien, si alguien me puede echar un cabo se lo agradecería, nada más.

Un saludo.