Problema con el codigo para crear excel

[envasados]

Buenas tardes!

Estoy intentando crear con visual basic una hoja excel con datos, introducidos por el formulario hecho en visual.
Me genera el archivo pero me dice que esta dañado.
Este es el codigo

Código:

Private Sub Command1_Click()

Dim obj As Object

Dim Libro As Object

Dim Hoja As Object



Set obj = CreateObject("Excel.application")

Set Libro = obj.workbooks.Add()

Set Hoja = Libro.Sheets(1)

Hoja.cells(1, 2) = NomCons
Hoja.cells(1, 3) = DomCons
Hoja.cells(1, 4) = PobCons
Hoja.cells(1, 5) = Pais
Hoja.cells(1, 6) = CpCons
Hoja.cells(1, 7) = Val(Bultos.Text)
Hoja.cells(1, 8) = Val(PvKilos.Text)
Hoja.cells(1, 9) = Val(Vol.Text)
Hoja.cells(1, 10) = Val(KeyTsv.Text)
Hoja.cells(1, 11) = SemPor_CR
Hoja.cells(1, 12) = Obser1
Hoja.cells(1, 13) = Obser2
Hoja.cells(1, 14) = Referencia
Hoja.cells(1, 15) = SemPor_CR
Hoja.cells(1, 16) = Val(Reembolso.Text)
Hoja.cells(1, 17) = Val(ValSeMer.Text)
Hoja.cells(1, 18) = CodRemi
Hoja.cells(1, 20) = Val(MaxEtiq.Text)
Hoja.cells(1, 25) = Val(Estado.Text)

obj.Application.ActiveWorkbook.Saveas App.Path & "\nombre.xls"

obj.Application.Quit

Set obj = Nothing
Set Libro = Nothing
Set Hoja = Nothing

End Sub

Hay alguna otra forma de hacerlo?

muchas gracias

un saludo