If T_E_Data.rowcount > 0 And ret = True Then
For i = 1 To T_E_Data.rowcount
strDataRow = T_E_Data(i, 1)
DataRow = Split(strDataRow, "|")
If Col = False Then
For x = 0 To UBound(DataRow)
Sheets("Data").Cells(1, x + 1).Value = T_I_Fields(x + 1, 1)
Next x
Col = True
End If
For x = 0 To UBound(DataRow)
Sheets("Data").Cells(i + 1, x + 1).Value = (DataRow(x)
Next x
Next i
Else
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "No data has been imported!"
Sheets("Data").Delete
Exit Sub
End If