Vb

Gostaria de escrever uma função que receba uma string e um separador e que divida
a string em duas outras strings. Trate adequadamente as condições de erro.
Exemplo: Divide(?Jones^Sam^IV^Houston?, ?^?, st1, st2) faz com que st1 fique com
o valor ?Jones? e st2 com ?Sam^IV^Houston?.

Cumprimentos

a função split ja não é o bastante?

http://msdn.microsoft.com/en-us/library/6x627e5f(VS.80).aspx

Que versão de VB é? O 6 ou o .net?

PS: Sai dessa vida de VB, se possível.