Mira, la funcion mid es especial para eso y el modo de usarla es este
primero que todo debes definir una variable de tipo string que es donde vas a colocar lo que le saques a la cadena.
Dim Saque as String
' Ahora digamos que lo que vamos hacer es que vamos a sacar un pedazo de el text1
Saque = Mid(text1.text, 4, 2)
Lo que estoy haciendo es que de lo que tenga el text1 me saque a partir del caracter 4 un total de 2 letras.
Si text1 tuviera tabares la variable saque quedaria con ar