Puedes hacerlo con Mid:
Código:
Codigo = Mid(Text1.Text, 5, 4) 'Tomar a partir del 5º caracter, 4 caracteres
o con Right
Código:
Codigo = Right(Text1.Text, 4) 'Tomar los cuatro caracteres de la derecha
También puedes usar Left para los cuatro primeros caracteres
Código:
Codigo = Left(Text1.Text, 4)