Command1.Enabled = False
Command4.Enabled = True
Row = 0
'Col = 1
Start = Text1.Text
End1 = (Text2.Text - Text1.Text) + 1

'open Excel and create a new worksheet
    Dim oXLApp As Excel.Application         'Declare the object variables
    Dim oXLBook As Excel.Workbook
    Dim oXLSheet As Excel.Worksheet

    Set oXLApp = New Excel.Application    'Create a new instance of Excel
    
    If FirstTime = True Then
        Set oXLBook = oXLApp.Workbooks.Add    'Add a new workbook
    Else
        Set oXLBook = oXLApp.Workbooks.Open(Text4.Text) 'Open an existing workbook
    End If
    
    Set oXLSheet = oXLBook.Worksheets(1)  'Work with the first worksheet
   

    
  'This file is the input
    INfile = FreeFile()
    Open Text3.Text For Input As #INfile
         
Do While Not EOF(INfile) 'Continue to read and process MAINFILE until EOF is reached
            
        Line Input #INfile, Rec 'Read a record
        Row = Row + 1
        
  
    'read data into worksheet
    Xfer = (Mid(Rec, Start, End1))
    oXLSheet.Cells(Row, Col).Value = Xfer
    oXLSheet.Cells(Row, Col).NumberFormat = "space"
  
        
Loop
    
    Reset
    MsgBox "column created"
    
    
        'Save the workbook to a new file:
        Set oXLSheet = Nothing                        'disconnect from the Worksheet
        oXLBook.SaveAs Text4.Text  'Save (and disconnect from) the Workbook
        oXLBook.Close SaveChanges:=False
        Set oXLBook = Nothing
        oXLApp.Quit                                   'Close (and disconnect from) Excel
        Set oXLApp = Nothing
        FirstTime = False
    

End Sub