ALTRIMENTI puoi utilizzare la funzione MID()

stringa = "abcdefghilmnopq"
Text1 = Mid(stringa, 1, 3)

'text1 visualizzerà i primi 3 caratteri della variabile stringa
'1=inizia a leggere dal "primo" carattere
'3=fino al "terzo" carattere (compreso)

'altri 2 esempi:
'per leggere solo gli ultimi 4 caratteri
Text1 = Mid(stringa, 12,)
'solo "nop"
Text1 = Mid(stringa, 12, 3)