Visual Basic - EXTRAER

AMIGOS:

ALGUIEN PUEDE AYUDARME, NECESITO EXTRAER DATOS DE UN TXT A OTRO TXT, EJEMPLO:

123456789

12789 (EXTRAER NADA MAS ESTOS CARACTERES)

Private Sub Command1_Click()
StrVar = "123456789"
StrVar = Mid(StrVar, 1, 2) & Mid(StrVar, 7, 3)
Debug.Print StrVar
End Sub