[VB6]Salvare file XLS

[simicasa]

Dopo aver creato e riempito il file XLS vorrei salvarlo in un percorso da me deciso come posso fare
ecco la sintassi usata per creare il file

Dim oXL As Object
Dim oBook As Object
Dim oSheet As Object
Dim oChart As Object
Set oXL = CreateObject("Excel.application")
Set oBook = oXL.Workbooks.Add
Set oSheet = oBook.Worksheets.Item(1)