Aquí tienes cursos de todo tipo:
http://www.lawebdelprogramador.com/cursos/
Bienvenido al foro y al mundillo del VB
PD: Para j0hann, aunque imagino que tarde, en teoría y sin haber probado el código, el único cambio que tienes que hacer es esta línea:
palabras = Split(sCadena1, " ")
cambiarla por
palabras = Split(sCadena1, "|")
...y bienvenido al club