Private Sub cmdImportToExcel_Click()
Dim ExcelApp As Object
On Error GoTo APPLICATION_CREATE' An error will cause us to initiate the Appl.
Set ExcelApp = GetObject(, "Excel.Application")
GoTo SKIP_APPLICATION_CREATE' Of course if it's already there, then we'll use that
APPLICATION_CREATE:
Set ExcelApp = CreateObject("Excel.Application")
SKIP_APPLICATION_CREATE:
On Error GoTo BYE' Back to our normal way of life
Dim myArray()
For i = 1 To intColumns
    ReDim Preserve myArray(i)
    myArray(i) = Array(i, 2)
Next
Application.StatusBar = ". . . . . . . . . . . . . . . IMPORTING INTO EXCEL !! . . "
ExcelApp.Workbooks.OpenText FileName:=MyFinalPathFile, _
    Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier _
    :=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:= _
    False, Comma:=False, Space:=False, Other:=False, FieldInfo:=myArray()
ColumnString = "A:" & ConvertColumnNumberToLetter(intColumns)
ExcelApp.Columns(ColumnString).EntireColumn.AutoFit
ExcelApp.Range("A1").Select
ExcelApp.Visible = True
Application.StatusBar = ""
BYE: End Sub