Visual Basic - Grabar archivo con extencion xls (Excel)

Hola Foro tengo una planilla de calculo excel cargada en un objeto OLE y necesito guardar los cambios en un archivo XLS es decir con extencion Excel. Hasta ahora lo que hago es guardarlo en un archivo binario de esta forma

I = FreeFile()
Dim Nom As String
Nom = CommonDialog.FileTitle
Open Nom For Binary As I
Ole.SaveToFile I
Close #I

si alguien me pudiera dar una mano desde ya le estaria muy agradecido.