Interop Excel OpenText

Bom dia,

Estou tentando importar um TXT para um novo arquivo Excel mas não estou tendo sucesso. Poderiam me ajudar?

Estou utilizando o seguinte código:

Private Sub importaDados()
Dim xL As New Application
xL.Application.Workbooks.OpenText(
Filename:=caminhoDados.FullName,
Origin:=XlPlatform.xlWindows,
StartRow:=1,
DataType:=XlTextParsingType.xlDelimited,
TextQualifier:=XlTextQualifier.xlTextQualifierNone,
ConsecutiveDelimiter:=False,
Tab:=False,
Semicolon:=False,
Comma:=False,
Space:=False,
Other:=True,
OtherChar:="#",
Local:=True
)
Dim arquivo As Workbook = xL.Workbooks(1)
Dim planilha As Worksheet = arquivo.Worksheets(1)
MsgBox(planilha.Range("A1").Value)
arquivo.SaveAs(caminhoDestino)
arquivo.Close()
Process.Start("Excel", caminhoDestino)
End Sub

O programa executa corretamente, porém o excel não consegue abrir o arquivo gerado.

Recebo a seguinte mensagem de erro:

O Excel não pode abrir o arquivo 'Texte1.xlsx' porque o formato ou a extensão de arquivo não é válida. Verifique se o arquivo não está corrompido e se a extensão corresponde ao formato do arquivo.

Estou anexando o projeto para ajudar na identificação do problema.

https://drive.google.com/file/d/0B5Ky7jhytNroTzBfdVN2TDV4WjA/view?usp=sharing

Desde já obrigado.