Как взять текст с определенной позиции в текстбокс?

Open for input as #1

For i=1 to X
  Line input #1,a$
next i

Private Sub Form_Load()
 
   CDi1.FileName = ""
   CDi1.Filter = "Текстовый (*.txt)|*.txt"
   CDi1.ShowOpen
   FileName = CDi1.FileName
   If FileName <> "" Then
     Open FileName For Input As #1
     i = 0
     Do While Not EOF(1)
         i = i + 1
         Line Input #1, TextLine
         If i = 6 Then Text1.Text = Mid(TextLine, 5)
     Loop
     Close #1
   End If
End Sub

Private Sub Command1_Click()
    Dim objFSO As New FileSystemObject
    Dim objTextStream As TextStream
    Dim intLine As Integer
    Dim intMyLineToGet As Integer
    Dim strMyLineToGet As String
    Dim intPosition As Integer
    Dim strMyTextToGet As String
 
    Set objTextStream = objFSO.OpenTextFile(FileName:="c:   empMyTest.txt", IOMode:=ForReading)
 
    intMyLineToGet = 3
    For intLine = 1 To intMyLineToGet
        strMyLineToGet = objTextStream.ReadLine
    Next intLine
    objTextStream.Close
 
    intPosition = 10
    strMyTextToGet = Mid(strMyLineToGet, intPosition)
    MsgBox strMyTextToGet
 
    Set objTextStream = Nothing
    Set objFSO = Nothing
End Sub

Option Explicit
 
Private mstrFolderFrom As String
Private mstrFolderTo As String
Private mobjFileNameDict As New Dictionary
 
Private Enum ColumnDetail
    detailInfoTip = -1
    detailName = 0
    detailSize = 1
    detailType = 2
    detailModified = 3
    detailAttributes = 4
    detailComment = 5
    detailCreated = 6
    detailAccessed = 7
    detailOwner = 8
    detailUnknown = 9
    detailAuthor = 10
    detailTitle = 11
    detailSubject = 12
    detailCategory = 13
    detailPages = 14
    detailCopyright = 15
    detailCompanyName = 16
    detailModuleDescription = 17
    detailModuleVersion = 18
    detailProductName = 19
    detailProductVersion = 20
    detailSenderName = 21
    detailRecipientName = 22
    detailRecipientNumber = 23
    detailCsid = 24
    detailTsid = 25
    detailTransmissionTime = 26
    detailCallerID = 27
    detailRouting = 28
    detailAudioFormat = 29
    detailAudioSampleRate = 30
    detailAudioSampleSize = 31
    detailChannels = 32
    detailPlayLength = 33
    detailFrameCount = 34
    detailFrameRate = 35
    detailVideoSampleSize = 36
    detailVideoCompression = 37
End Enum
 
Private Function GetColumnDetail(ByVal strFilename As String, Optional iColumn As ColumnDetail = detailInfoTip)
    Dim objFSO As FileSystemObject
    Dim myShell As Shell
    Dim myFolder As Shell32.Folder
    Dim myItem As FolderItem
    Dim lp As Long
    
    Set objFSO = New FileSystemObject
    Set myShell = New Shell
 
    Set myFolder = myShell.NameSpace(objFSO.GetParentFolderName(strFilename))
    Set myItem = myFolder.Items.Item(objFSO.GetFileName(strFilename))
 
    GetColumnDetail = myFolder.GetDetailsOf(myItem, iColumn)
End Function
 
Private Sub Command1_Click()
    Dim objFSO As New FileSystemObject
    Dim strFullFileNameFrom As String
    Dim strFullFileNameTo As String
    
    mstrFolderTo = "C:TempJunk"
    strFullFileNameFrom = mobjFileNameDict.Item(Combo1.Text)
    strFullFileNameTo = objFSO.BuildPath(mstrFolderTo, _
                        objFSO.GetFileName(mobjFileNameDict.Item(Combo1.Text)))
    
    objFSO.CopyFile Source:=strFullFileNameFrom, _
                    Destination:=strFullFileNameTo, _
                    OverWriteFiles:=True
            
    Set objFSO = Nothing
End Sub
 
Private Sub Form_Load()
  mstrFolderFrom = "C:Temp"
  LoadCombo
End Sub
 
Private Sub LoadCombo()
    Dim varKey As Variant
    
    mobjFileNameDict.RemoveAll
    Set mobjFileNameDict = GetFileNameDictionary(mstrFolderFrom)
    
    Combo1.Clear
    For Each varKey In mobjFileNameDict.Keys
       Combo1.AddItem varKey
    Next varKey
End Sub
 
Private Function GetFileNameDictionary(ByVal pstrPath As String) As Dictionary
    Dim objReturn As New Dictionary
    Dim objFile As File
    Dim objFSO As New FileSystemObject
    Dim strPsevdonim As String
    Dim strFullName As String
    
    For Each objFile In objFSO.GetFolder(pstrPath).Files
        strFullName = objFSO.BuildPath(pstrPath, objFile.ShortName)
        strPsevdonim = Trim$(GetColumnDetail(strFullName, detailAuthor))
        If strPsevdonim <> vbNullString Then
            If Not objReturn.Exists(strFullName) Then
                objReturn.Add strPsevdonim, strFullName
            End If
        End If
    Next objFile

     ....
    detailAuthor = 9
    detailTitle = 10
    detailUnknown = 11
    ....

Option Explicit
Dim a As String
Dim i As Integer
Private Sub Command1_Click()
  Open "C:  empMyTest.txt" For Input As #1
  For i = 1 To 5
    Line Input #1, a
  Next i
  Text1.Text = Mid(a, 4, 8)
  Close #1
End Sub

...
    Set objFSO = New FileSystemObject
    Set objTextStream = objFSO.CreateTextFile(strMyNewFile, True)
...  
    strMyNewString = Mid(... Text1.text ...)
...
    objTextStream.WriteLine  strMyNewString ....