Hola, no entiendo muy bien lo que se pretende, pero si fuera extraer parte de una cadena de texto que siempre tiene la misma longitud, puedes hacerlo con la función mid.
mid (String, num) devuelve todos los caracteres empezando a partir de la posición especificada del String
mis (String, num1, num2) devuelve num2 caracteres empezando por la posición num1 de carácter en el String.
Ejemplo
' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Devuelve "Mid" porque toma los caracteres desde la posición 1 y toma 3 caracteres
Dim FirstWord As String = Mid(TestString, 1, 3)
' Devuelve "Demo" porque empieza en la letra 14 y devuelve 4 caracteres contando el inicial D-1, e-2, m-3, o-4
Dim LastWord As String = Mid(TestString, 14, 4)
' Devuelve "Function Demo" porque empieza en el caracter 5 (F) y devuelve todo el fragmento de cadena a partir de ese caracter
Dim MidWords As String = Mid(TestString, 5)
Saludos