Dim ExcelX As Object
 Set ExcelX = New Excel.Application
 
    Workbooks.OpenText FileName:=Text1.Text, Origin:=xlMSDOS, _
        StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 2), _
        Array(1, _
        2), Array(6, 2), Array(20, 2), Array(35, 2), Array(51, 2), Array(64, _
        2), Array(80, 2), Array _
        (91, 2), Array(96, 2), Array(113, 2), Array(128, 1), Array(155, 2), _
        Array(175, 2), Array( _
        189, 2), Array(204, 2), Array(218, 2)), TrailingMinusNumbers:=True
    Cells.Select
    Selection.Columns.AutoFit
    ActiveWorkbook.SaveAs FileName:=Left(Text1.Text, Len(Text1.Text) - 4) & _
      ".xls", FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
 
    ActiveWorkbook.Close
    Excel.Application.Quit