Visual Basic - ayuda con cadenas esta facil!

hola amigos del foro esta pregunta de seguro que me van a poder ayudar

tengo una variable llamado texto que contiene lo siguiente
101-Girardot
quiero que en dos variables distintas llamadas texto1 y texto2
me partan la variable de arriba mencionada y lo ponga asi
texto1 = 101
texto2 = Girardot

cabe destacar que siempre la primera parte tendra 3 caracteres o sea 101, 198, 165 asi que no importa una funcion estatica para los primeros 3 caracteres y los demas
gracias de antemano

Puedes hacerlo de varias formas
(1) Utiliza las funciones Left y Right
(2) Utiliza la función Split:
Dim vPartes as Variant
vPartes = Split(texto, "-")
texto1 = Cstr(vPartes(0)) '101
texto2 = Cstr(vPartes(1)) 'Girardot

Saludos.

text1=mid(text,1,3) ´toma los tres primeros caracteres
text2=mid(text,4,len(text)-3) ' toma los ultimos

' len(text) - 3 es para obtener la cantidad de caracteres de la cadena que pasaran a text2
o tanbien
text1=Left(text,3) ´toma los tres primeros caracteres
text2=Right(text,len(text)-3) ' toma los ultimos