Visual Basic para Aplicaciones - Guardar un Libro de excel como Pag Web desde vb 6

Nesecito Guardar un libro Como Pagina Web Desde Visual Basic 6.0
Aqui un trosito de codigo

Private Sub Command1_Click()
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object

'iniciar un nuevo libro en Excel
Set oExcel = CreateObject("Excel.Application")
oExcel.Visible = True
Set oBook = oExcel.workbooks.Add

'Añadimos datos a las celdasde la primera hoja en el Libro nuevo
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1").Value = "Apellido"
oSheet.Range("B1").Value = "Nombre"
oSheet.Range("A1:B1").Font.Bold = True
oSheet.Range("A2").Value = "Daniel"
oSheet.Range("B2").Value = "John"

'Guardar el Libro y Salir de Excel ¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡AQUI EL PROBLEMITA!!!!!!!!!!!!!!!!!!!!!!!
'oBook.SaveAs "C:\Book1.xls" 'Asi es facil
oExcel.ActiveWorkbook.SaveAs "C:\pp2.htm" 'Esta es una mala idea
' Pro fabor completen este espacio, oBook se tiene que guardar asi "Book1.htm"
' y debe guardarse tal como lo hace desde una macro de vba

oExcel.Quit
Set oExcel = Nothing
Unload Me
End Sub

quiero que me ayuden como controlar un video en visual basic 6.0 que diseñe en flash, como interactuo flahs y visual basic 6.0

usando el modo: early binding to an Automation server, ¿como?
pues añadiendo la referencia de la biblioteca de excel de Microsoft "Microsoft Excel 11.0 Object Library" para Office Excel2003
y listo.

dim oExcel as Excel.Aplication
dim oBook as Excel.Workbook
dim oSheet as Excel.Worksheet
'etc, etc.
Set oExcel = CreateObject("Excel.Application")
'LLenar algunas celda .......

'La parte importante esI:

oWorkbook.SaveAs FileName:="C:\MiLibroPP.htm", FileFormat _
:=xlHtml, ReadOnlyRecommended:=False, CreateBackup:=False

oExcel.quit
set oExcel = nothing
Set oBook = nothing
Set oSheet = nothing

Grande Guru esa parte la buscaba y no sabia como hacerla pa que los ineptos de mis jefes dejaran de llamarme cada ves que queian actualizar algun excel a html...

grandeeeeeeeeeeeeeeeeeeee